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completely new concept in teach-yourself computing, the series 
now carries on to explore the speed and potential of machine-code 
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BOOKS ABOUT THE COMMODORE 64 

This is Book Three in a series of guides to programming the 
Commodore 64. It contains a complete BASIC-and-machine-code 
graphics language for the Commodore, and features its own 
graphics editor which enables you to use all these facilities directly 
from the keyboard. Together with its companion volumes, it builds 
up into a complete programming and graphics system. 
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HOW TO USE THIS BOOK 


The Commodore 64 is one of the most powerful 
microcomputers currently available, and it has many 
facilities that set it apart from other machines. 
However, it docs have one drawback. The 
Commodore’s BASIC interpreter — the part of the 
computer which “understands” the BASIC 
programming language — has a rather limited 
vocabulary. Because it doesn’t understand keywords 
like PLOT, DRAW or COLOR, complex graphics often 
require long programs full of difficult-to-use POKE 
statements. Furthermore, when you try out programs 
like these, the chances are that the Commodore will take 
quite a long time to run them because so many 
instructions are needed. 

This book provides you with the tools you need to get 
much more out of the Commodore 64’s graphics by 
taking you beyond BASIC. With the routines and 
programs on the following pages, you can make 
graphics both easier to key in and much faster to run. 

Speeding up Commodore BASIC 

Each time you run a BASIC graphics program, the 
Commodore will almost certainly have to perform a 
number of different operations, repeating each one over 
and over again. Take as an example plotting a single 
point on the screen. Each time the computer plots a 
point, it must interpret quite a long sequence of BASIC 
instructions. A considerable amount of “thinking” time 
is needed before the point appears. Imagine how much 
work the Commodore has to do if you want it to draw a 
series of lines made up of individual point-plots. 

Program sequences that are to be repeated arc usually 
written as routines. Indeed, this book gives you a whole 
package of routines to produce graphics. However, they 
are not ordinary BASIC routines activated by the 
command GOSUB. Instead, they are written so that 
they produce instructions in machine code, and these 
instructions are triggered by the command SYS. Using 
these routines, graphics programs run tens or hundreds 
of times faster than they would with pure BASIC. 

The machine-code graphics routines 

Pages 10-43 introduce 19 machine-code graphics 
routines that together build up into a complete graphics 
system. The routines are arranged in blocks, with each 
block coded by a letter from A to L. Each block contains 
from one to five separate graphics routines coded by a 
number (A 1, A2 and so on). You can find a complete list 
of the routines on pages 62-63. 

To try out any program in this book, all you have to do 
is key in the main BASIC program together with the 
routine blocks that it uses. You can find full details of 
how to do this on pages 8-9. By saving each of the 


routine blocks on tape or disk as you go through the 
book, you’ll have a new and flexible graphics capability 
at your fingertips. 

Linking BASIC and machine code 

When you try out a program in this book, the computer 
will run it by using a number of the machine-code 
routines. Here is a program sequence which would plot a 
series of points: 

HOW A PROGRAM USES THE GRAPHICS ROUTINES 



You can see from the diagram how the BASIC and 
machine code work together. A typical example of a 
main BASIC graphics listing which plots points in this 
way looks like this: 
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You will notice that the listing contains a number of 
lines which feature the SYS command. This makes the 
computer carry out instructions that start not at a 
specified line number, but instead at a specified address 
in memory (you can see the address numbers in the 
routines checklist on pages 62-63). 

In the previous program, when the computer reaches 
line 10100, for example, it goes to memory address C1. 
Cl is simply a variable holding the number of the 
memory address for routine 1 in block C. When the 
computer goes to this address it follows the instructions 
that begin there. This is where the graphics routine 
comes in. It puts instructions that code a graphics 
operation directly into the memory. Once there, the 
computer can read them without using BASIC. 

You can see the routine in the panel below. It plots 
points. Because it has low line numbers, its instructions 
are POKEd into memory before the main BASIC listing 
calls on them. This means that from the moment the 
routine has been run, the potential for plotting points 
with machine code is in memory ready to be used. 

When the computer encounters the command SYS 
Cl in the main BASIC program, it will jump to the 
correct machine code and plot a point. This will happen 
very quickly because BASIC is not used. 


What is machine code? 

Although you can program the Commodore with 
BASIC keywords, ultimately it works only with 
numbers. In every one of the 65.536 addresses in the 
Commodore’s RAM, there is room for one number with 
a value between 0 and 255. It is these numbers that 
control all the programmable operations that the 
computer can perform. 

Before a program can be carried out, the Commodore 
must convert all BASIC instructions, strings and 
variables into numbers and put them into specific 
memory addresses. Once this has been done, the 
computer can then start working on them to produce 
results. 

The number language that the computer uses is 
known as machine code. Machine-code instructions are 
carried out very rapidly. A large amount of the time 
your Commodore needs to run a BASIC program is 
taken up with converting from BASIC into machine 
code, rather than computing results. 

This book speeds up programs by cutting down the 
amount of B ASIC-to-machine-code conversion that the 
Commodore needs to do. The graphics routines use the 
POKE command to put DATA numbers directly into 
memory, and these produce machine-code results. 


WHAT A MACHINE-CODE PANEL CONTAINS 
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HOW TO KEY IN THE PROGRAMS 


Because the programs in this book all depend on 
machine code, it is crucial that you know what to key in 
before you start. To run any program in this book, you 
need to do three things: 

1 Make sure that your Commodore is set up for high 
resolution. You can see how to do this in the panel on the 
right of this page. You only have to do this once every 
time you switch on, but failing to do it will prevent the 
programs from running. 

2 Find out which machine-code routine blocks the 
program needs, and load or key them in. You can either 
load the separate routines one by one, or, if you have 
worked through the book already, you can load the 
complete set. Both ways work equally well (it doesn’t 
matter if you have unused routines in memory). Make 
sure that you add all the routines in order, with the 
lowest line numbers being keyed in or loaded first. 

3 Add the main BASIC listing and run the complete 
program. If you have trouble with a program, consult 
the panels on the opposite page. 


HIGH-RESOLUTION GRAPHICS DISPLAY 



_ IMPORTANT _ 

After you turn on the computer and before you try out 
the programs in this book, you must key in the following 
series of direct commands: 


Writing your own programs 

Once you have a complete set of the graphics routines, 
writing your own high-resolution graphics programs is 
easy. All you have to do is load the routines and then add 
a main BASIC program, starting at line 10000. 

Here for example is a program which will draw fan- 
shapes on the screen. You can see from this how simple 
the graphics system is to use, and how much more 
straightforward the listing is than a pure BASIC 
equivalent. 


HIGH-RESOLUTION GRAPHICS PROGRAM 



HIGH-RESOLUTION COMMANDS SCREEN 


POKE 642,64 
READY. 

POKE 44,64 
READY. 

POKE 16384,0 
READY. 

NEU 

READY. 


J 


The Commodore does not have a section of memory 
specifically reserved for high-resolution graphics. 
These commands make the computer rearrange its 
memory so that it can store high-resolution graphics 
information in the area normally used by the BASIC 
system. The programs in this book will not work if you 
forget to key in these commands. 

This sequence must be typed in as direct commands 
and not as part of a program. If you try to enter the 
commands as statements in a program, there is a chance 
that the program may destroy itself before it has 
finished running. 





























Program line numbers 

When you key in a program from this book, the 
complete listing will fall into two parts. The machine- 
code routines, which make up the first part of the pro¬ 
gram, will always start at line number 100. The main 
program, which makes up the second part and calls the 
routines, will always start at line number 10000. In addi¬ 
tion to this, ordinary BASIC subroutines (subroutines 
which do not involve machine code and which are called 
by GOSUB) will normally appear at line number 20000 
onward. 

How to store and re-load the routines 

The value of machine code is that it is very fast. 
However, some of the blocks of machine-code routines 
in this book are quite lengthy, and there would be little 
point in using this system of speeding up programs if it 
meant a great deal of extra time on the keyboard. But if 
you have a cassette or disk storage system, there is no 
need for you to key in any machine-code block more 
than once. 

As you encounter each block for the first time, after 
testing that it works correctly you should store it. Then, 
when you want to try out a program, you can re-load the 

PROGRAMMING TROUBLESHOOTER 

The program won’t RUN or LIST 

Check that you have set your Commodore up for high 
resolution. If not, switch off and begin again. 

The program won’t RUN but it will LIST 

Check that the lines are in the right order. If you merge 
routines and programs out of line order, the complete 
program will probably crash. This is particularly 
important to remember with turtle graphics. 

The program only RUNs partially 

You may have keyed in the routines incorrectly. On 
page 61, you will find an error-detection system which 
will help you to track down any typing errors in your 
machine-code DATA. Errors in BASIC can be detected 
by switching to low resolution (see page 10), after which 
programming faults will be revealed by the usual 
Commodore error reports on screen. 


routine blocks needed, add the program, and you are 
ready to run. 

Block A of the machine-code routines contains a 
merge routine which allows you to add together routine 
blocks and programs (the Commodore normally erases 
any program in memory if you load another). If you key 
in and store every routine block separately as you go 
through the book, the merge routine will let you later 
add all the routine blocks together. The resulting 
complete set of machine-code routines will enable you to 
run any high-resolution program in this book without 
having to load routine blocks separately. You can find 
instructions for using the merge routine on page 11. 

How to alter a program 

The system of program numbering is designed to help 
you to distinguish between the machine-code routines 
and the main program. You can alter the main program 
just as you would any other BASIC program. You can 
edit, extend or reorganize in any way you like, as long as 
the main program continues to use only the routines 
that precede it. To modify a main program, simply 
delete or alter the lines you want to change, and the 
revised version will be ready to run. 

GRAPHICS QUESTIONS AND ANSWERS 

When do I have to set up high resolution? 

You must do this every time you turn the computer on, if 
you want to use the high-resolution screen. Get into the 
habit of doing this automatically after you switch on. 

Can I start anywhere in the book? 

Yes, you can start anywhere you like. However, you will 
find it much easier to work through pages 10-43 first, 
building up a library of the routine blocks on tape or disk 
as you try them out. If you do this, you will avoid having 
to key them in more than once. 

How can I add together routines and programs 
from a tape or disk? 

There’s no MERGE command on the Commodore, but 
this book gives you a machine-code equivalent. This is 
contained in routine block A. If you load this block and 
then run it, you can merge anything else with SYS 
49297. Full details are on page 11. 


The program just produces a READY message 

Check that your machine code is in memory. Try typing 
SYS A1 in as a direct command. If the screen doesn’t 
switch to high resolution, your routines are either 
incorrectly keyed, or have not been run. 

The program works, but won’t re-RUN 

If you key in RUN on a line which already has some 
graphics on it, the computer won’t understand the 
instruction. Press the RUN/STOP and RESTORE 
keys together, and key in RUN again. 


Can I load just one routine from a block? 

No. You must always load or key in complete routine 
blocks. 

Can I adapt the machine-code routines? 

No. If you alter the DATA numbers in the routines it is 
highly unlikely that the routines will work. 

How do I stop a program? 

Press the RUN/STOP and RESTORE keys together. 









THE GRAPHICS TOOLKIT 


The machine-code routines featured on these two pages 
don’t produce graphics themselves, but they are either 
essential for the routines that do, or else they give you 
program-handling facilities whidvCommodore BASIC 
does not have. 

Before you can produce graphics, you need to turn on 
the high-resolution screen. To do this, set your 
Commodore up for high resolution, if you haven’t 
already done so (see page 8), and then type in the whole 
of the listing in the block A panel on the opposite page. 
Before you go any further, you should store the listing 
on tape or disk. If you save a block of routines before 
running it, you can re-load it if it fails to work the first 
time so that it can be debugged. 

High- and low-resolution routines 

After you have saved block A, add this very short main 
program to it: 

10000 SYS A1 
10010 GOTO 10010 

You now have a program which when run will turn on 
the high-resolution graphics screen. The program 
consists of two parts. Line 10000 calls a machine-code 
routine for high resolution, while line 10010 forms an 
endless loop, preventing the computer from trying to 
produce a READY message on the high-resolution 
screen. If you now key in RUN and then press 
RETURN, you should see a display like this: 



The program works in a few seconds. It uses the 
command SYS A1 to activate the first machine-code 
routine in block A, turning on high resolution. 

If you now press the RUN/STOP key and type in 
SYS A2 followed by pressing RETURN, you will return 
to the low-resolution (text mode) screen: 



How the routines check themselves 

When you first run the program, you may notice a short 
time delay before the high-resolution screen is turned 
on. This delay is the time taken for the five routines in 
block A to load their machine code into memory. This 
only has to happen once each time you switch on, 
because all the routines check to see if they have already 
been placed in memory. 

Line 100 in block A checks to see if the machine code 
has already been loaded. If it hasn’t, control is passed to 
the loop in lines 110 and 120 which READs all the 
DATA and POKEs it into memory starting at location 
49152. But if the DATA is already in memory then this 
loop is skipped. 

Lines 130 to 150 set up the variables that tell the 
computer where each set of machine-code instructions, 
from A1 to A5, starts in memory. There are five 
variables — one for each routine. 

The restore routine 

The next routine in the block doesn’t produce anything 
on its own, but is very helpful in graphics programming. 
Because all the routines in this book contain DATA 
statements, you can run into trouble if your main 
programs also contain DATA. This is because the 
computer READs DATA as a single series, starting at 
the beginning of a program, and working through to the 
end. If the DATA is to be READ more than once, the 
RESTORE statement is normally used. However, the 
Commodore’s RESTORE statement cannot be used to 
specify READing of just part of the DATA, so normally 
you cannot make the computer use DATA selectively. 

The restore routine provides just this facility. It’s 
quite simple to use in programs. The command: 
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SYS A3,15000 

for example makes the computer READ the DATA 
beginning at line 15000. Watch out for this routine 
where a main program uses DA'I'A. 

The rescue routine 

The fourth routine in the graphics toolkit will help you if 
you accidentally erase a program. It reverses the effect 
of the BASIC command NEW (in some BASICs, this is 
carried out by the command OLD). The rescue routine 
lets you recall a BASIC program. This is possible 
because NEW does not in fact clear a program 
completely, but merely alters some memory pointers so 
that the program is ignored by the computer. To cancel 
NEW, simply type: 

SYS 49271 

This routine has to be called by a number instead of by 
SYS A4 because all variables are “forgotten” if you use 
NEW. 

The merge routine 

Throughout this book you will want to join separate 
programs together, usually to combine a main program 
with one or a group of routines. The merge routine 
allows you to add one program onto the end of another. 

Suppose you have a program in memory, and then 
want to add another program to it. Typing: 

SYS 49297, “FILENAME” 

or, if you are using a disk drive, 

SYS 49297, “FILENAME”,8 
— 

is all that is needed. The program you have identified 
with the filename will now be loaded onto the end of the 
program in memory. Notice that again the routine has 
to be called by its address number instead of by SYS A5. 

How to add the routines together 

You can use the merge routine to build up a complete set 
of all the machine-code graphics routines in this book. 
All you have to do is load or key in block A, run it, and 
then any other routine block can be added to it with SYS 
49297. You should add the routine blocks in 
alphabetical order as you encounter them in the book. 
Their line numbers are designed to form a single, non¬ 
overlapping sequence. 

Remember whenever you use the merge routine to 
add programs in strict line order. 

What next? 

Now you have saved your graphics toolkit on tape or 
disk, you can add some more routines which will start 
graphics on the screen. Turn over the page to find out 
about quick ways to use color. 


BLOCK A 


HIGH-RESOLUTION, LOW-RESOLUTION, 
RESTORE, RESCUE and MERGE routines 


What the routines do 

High-resolution turns on the high-resolution screen. All the 
programs in this book need this routine in order to work. 
Low-resolution returns the screen to low resolution (text 
mode). 

Restore resets the DATA pointer to a specified line of DATA in 
a program. This allows DATA to be READ selectively. 
Rescue cancels the effect of the NEW command. It is 
equivalent to the OLD command of other BASICS. 

Merge adds a second program onto the end of the one 
currently in memory. The merge routine does not arrange lines 
in numerical sequence. The line numbers of the second 
program must therefore be higher than and not overlapping 
those of the first. 







































HIGH-RESOLUTION COLOR 


Now that you can switch the Commodore to high 
resolution, the next step is to decide which colors you 
want to use. There are two ways in which you can do this 
— you can either specify colors for the whole of the 
screen, or for just part of it. As you will see later on, 
coloring the screen is best done in a particular order. 
First you set up overall colors, then you draw your 
design, then, if you want to, you can change areas of 
color. 

Coloring is done with two machine-code routines that 
are programmed by block B on the opposite page. They 
are the clear-and-color routine and the block-color 
routine. 

Commodore color codes 

If you have read Book Two in this series, you will be 
familiar with the color-coding that the Commodore uses 
in high resolution. There are 16 colors available. Their 
codes are summarized in the table on page 63. 

In high resolution, there are some restrictions in the 
way that these colors can be used. In the bit-map mode 
only two colors can be used in each 8x8 pixel block, but 
resolution is very good. In the multicolor mode four 
colors can be used in each 8x8 block, but the resolution 
drops by half. All the programs in this book use the bit¬ 
map mode to give the best resolution. 

On the screen one color is known as the background 
color, and the other the foreground color. Graphics 
images appear in the foreground color surrounded by 
the background color. Any combination of background 
and foreground colors can be selected by adding 
together two of the color control numbers shown in the 
table. 

To see how the clear-and-color and block-color 
routines work, you will need to load or type in the block 
A listing on page 11, if it is not in memory already, and 
then type block B onto the end. When you have done 
this, save the combined blocks so that you have a total of 
seven routines safely stored on tape or disk. You will find 
that every program in this book uses routines from both 
these blocks. 

The clear-and-color routine 

To specify a foreground and background color for the 
whole screen, you use the clear-and-color routine. This 
routine is called by the command S YS B1, together with 
a color code, like this: 

SYS B 1,80 


(don’t forget the comma). If you have blocks A and B in 
memory (that is, if you have loaded and run them) this 
command would clear the screen and set up a 
foreground color of green and a background color of 
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black. You wouldn’t actually see the foreground color 
until you had plotted or drawn with it. 

If you have only carried out this procedure before 
with BASIC, you’ll see a huge reduction in the amount 
of time it takes. 

The block-color routine 

You can color a selected area of the screen with the 
block-color routine. This is called into action with a 
command like: 


SYS B2,X,Y,C 


How the program works 

Three values are selected at 
random — a color combination 
and a pair of coordinates. 

These fix the color and position 
of each bar. The height is 
random, while the width is 
fixed at 40 pixels for each bar. 
(The time above is that taken 
for 50 bars to be displayed.) 
Line 10000 sets up the high- 
resolution screen and colors it 
black with the clear-and-color 
routine. 

Lines 10010-10070 make up 
a loop which produces random 
bars in random colors. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

B Clear-and-color 

Block-color 

11 

13 


where C is the required color combination, and X and Y 
are a pair of high-rcsolution coordinates (you will find a 
high-resolution coordinates grid on page 60). This 
routine controls the colors in one 8x8 pixel block. It 
takes the two coordinates, rounds them down to get the 
corner of rn 8x8 block, and then colors the block. So, for 
example, the line: 

SYS B2,100,100,118 

would set the color of just the 8x8 pixel block containing 
the high-resolution coordinates 100,100 to yellow on 
blue (color codes 112+6). If you had previously set the 
overall background color to something other than blue, 
you would now see a single blue block standing out on 

RANDOM BLOCK- 
COLOR PROGRAM 

Oh OS 


















































































the screen. Anything plotted or drawn in this block 
would be in the new foreground color — yellow. This 
might sound complicated, but it’s easy to master. 

Random block-coloring 

You can test out the block-color routine with the 
following program. It sets up random colors in bars over 
the screen. Using the routine by having SYS B2 inside a 
loop allows you to color any size of rectangle. To try it, 
load blocks A and B if they are not currently in memory, 
add this listing and then run the complete program. 


RANDOM BLOCK-COLOR PROGRAM 


LIST 

lOOOO SYS 01 : SYS 81,0 
10010 C=RND<0>*255 
10020 LX=INT<RND<0>*39>*8 : UX=LX*40 
10030 LY=INT(RND<0>*24>*8 : UY=196 
10040 FOR X=LX TO UX STEP 8 
10050 FOR Y=LY TO UY STEP 8 
10060 SYS B2,X,Y.C 

10070 NEXT Y : N£XT X : GOTO 10010 
READY. 

■ 



BLOCK B 


CLEAR-AND-COLOR and BLOCK-COLOR 
routines 


What the routines do 

Clear-and-color clears the high-resolution screen, and sets 
up the initial overall foreground and background colors for the 
whole screen. It is normally used at the beginning of a high- 
resolution graphics program, immediately following the high- 
resolution routine. 

Block-color sets up the foreground and background colors 
for a single 8x8 pixel block. It is often used within a loop to 
color rectangles containing a number of blocks. The block- 
color routine can be used to reset the colors of an area of the 
screen as often as required within a program, so that a range 
of colors can be built up in a display. 

Both these routines use the standard Commodore color 
combination codes. For details, see the chart on page 63. 


SYNTAX AND PARAMETERS 

Clear-and-color: SYS B1,C Block-color: SYS B2,X,Y,C 

C 

Color combination code (range 0-255). 

X,Y 

(Block-color only) Horizontal and vertical 
coordinates of any point within the 8x8 pixel block 
that is to be colored (ranges 0-319 and 0-199). 


ROUTINE LISTING 


IF PEEK<49408)=173 THEN 630 

SYS A3,650 : FOR 0=49408 TO 49682 

READ B : POKE C,B : NEXT C 

81=49559 

B2=49634 

DATA 173.8,192,72,41.7.141 
DATA i,l$2.104.41.24$, 133,253 
DATA i$3.1$.19$,7$.41,7.141 
DATA 2,l$2,i04,41 l $48 A 7$ A 74 


AV-T, I* . t-TW . > fc. 1 T 

141,3,192,$4, $4 
,3.192,141.3,192 


I ATA 24,109,3.192,141.3.192 

SIS 

SIS 

ATA 232,202,240.4,74,56.1^6 
ATA 249,141.0.1$2.96.17$.26 
ATA 192,41,$4$,14l,2$,19$,24 
ATA 110.27,192,110.26,192,110 
ATA 27,192,110,26,192,110,27 


DATA 141,4,i$2.io.lu.24,109 

o2tS 34*I?4‘24fl69?Ss’l42°133 
dSIS 

DATA 140,5,i62,l69, $2,133.252 
DATA 


240,13.162,0,138,129,251 

230.251.206.635.639.652.208 
231,169,4,163,262.169,0 
133.25i,l65,262.26l,?,208 

6.165,261,261.262,240,15 

162,0,173,5,162,169,261 

230.261.268.233.230.252.208 

229,96,62,46,196,32,224 

192,144.7.32,6,169,62 

251,168,96.142,27,192,140 


1000 DATA 26.192.32,40.192,32,236 
1010 DATA 196,176,265,140.68,192,32 
1020 DATA 40.192,140,6.196,36,82 
1030 DATA 196,166,0,176,5,192,145 
1040 DATA 251,96 








































PICTURES WITH POINTS 


In any high-resolution picture there are a number of 
elements from which the display is constructed. The 
fundamental element is a simple point, a single lit pixel. 
Once you can plot points, all the other graphics objects 
like lines and circles can be produced by plotting in a 
specific way. 

The Commodore doesn’t have a PLOT command in 
its BASIC. However, the single routine in block C on the 
opposite page gives you this facility. Once this routine’s 
machine code is in memory, you can use it with the 
following kind of command: 

SYS C1,X,Y 

This will plot a single point at position X,Y on the high- 
resolution grid. You can see the plot routine at work in 
the pair of programs on these two pages. Each of them 
uses the routine in a different way. The first plots predic¬ 
tably, while the second is semi-random. 



Drawing lines with the plot routine 

One simple way of using the point-plotter is to make it 
produce lines by plotting rows of points close together. 
The Point Star program makes the plot routine produce 
a star. It uses routines in blocks A, B and C, so you will 
need all these in memory as well as the listing before you 
run it. 


Shading with the plot routine 

If you draw lines with the plot routine, pixels are plotted 
in a regular way. But another technique that you can try 
out with the routine involves plotting points more 
densely in one part of an object than in another. The 
Planets program uses this method to produce an almost 
three-dimensional display. 






















PLANETS PROGRAM 



SYS Bi,112 : POKE 53280,0 
: VC=IOO 


LIST 

10000 SVS 01 

R=60 : XC=180 
GOSUB 10060 
R = 25 : XC=90 s YC=70 
GOSUB 10060 
GOTO 10050 
FOR V=-R TO R 
lOOfO Xi=INTCSQR<R*R-Y*Y>> 

10080 FOR X = -X1 TO XI 

10090 N=INT<RND<i>*Xi*2>+i „ _ 

10100 IF N<X1+X THEN SVS Ci / X+XC,V*YC 
10110 NEXT X : NEXT V : RETGRN 
READY. 


BLOCK C 

PLOT routine 


What the routine does 

The routine plots a single pixel at a specified point on the high- 
resolution screen (the screen coordinates are shown in the 
grid on page 61). 

SYNTAX AND PARAMETERS 

SYS C1,X,Y 


Horizontal and vertical coordinates of the point 
to be plotted (ranges 0-319 and 0-199). 



ROUTINE LISTING 


1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 


IF PEEK <49712)=32 
SYS A3,1240 : FOR 
READ B : POKE C,B 
Cl=49712 

DATA 32,40,192.32, 


THEN 1230 
C=49712 TO 49787 
: NEXT C 



1300 DATA 140.12.192.240.1.96.32 
1310 DATA 0.1§3,160,6,17$,$9.i92 
1320 DATA 26l,0,240,8,177.25$,77 
1330 DATA 0.l62,145.2$3.96,17t,253 
1340 DATA l6,0,i92,i45,653,96 


Random numbers and shading 

The Planets program uses random numbers to decide 
which pixels within a boundary should be plotted. As 
each pixel in each horizontal line of the planet shape is 
considered in turn, the random function determines 
whether or not the pixel should be plotted. The 
probability of any point being plotted is made to depend 
on how far along the line, from left to right, the point 
lies. The left-most point is never plotted while the right¬ 
most point almost certainly is. In this way the brightness 
increases across the width in a realistic fashion. The pro¬ 
gram is written so that the total length of each line of pix¬ 
els varies, producing a circular outline. However, the 
shading technique will work with any regular outline. 


PLANETS PROGRAM 

05-30 

How the program works 

The program uses a BASIC 
subroutine which plots rows of 
points, varying the width of 
each row to produce a circular 
outline. The plot routine is 
called so that it comes into 
operation most frequently 
toward the right of each row. 
Line 10000 sets up the high- 
resolution screen and selects 
the foreground and back¬ 
ground colors. 


Lines 10010 and 10030 

select two pairs of coordinates 
which specify the center of 
each planet. 

Lines 10020 and 10040 call 
the subroutine which carries 
out the plotting. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

C Plot 

15 





































LINE GRAPHICS 1 


As you saw in the Point Star program on page 14, you 
can use FOR ... NEXT loops to plot straight lines, as 
long as the X and Y coordinates are related to each other 
in a simple way. But this is rather limiting, because often 
you will want to draw lines with slopes that are difficult 
to work out in this way. 

To draw a straight line between any pair of points, 
you need to use the draw routine. This is the single 
routine contained in block D on the opposite page. It’s 
much longer than the plot routine in block C because it 
has a lot more work to do. With this block, the command 
SYS D1,X,Y will make the computer draw a line from 
the last point it visited to the point at X,Y. 


blocks from A to D, so these blocks must all be in 

memory before you can run the program. It draws a 
lattice-like web of lines. 


LINE WEB PROGRAM 


LIST 

iOOOO POKE 53280,4 

10010 SVS A1 - S$S B1.7 : SYS Cl,0,0 

10020 FOR X=0 TO 319 $TEP 10 

10030 SYS Dl,X,0 

10040 SVS 01,1^0,200 

10050 NEXT X 

10060 FOR X=0 TO 319 STEP 10 

10070 SVS 01,150.0 

10080 SVS 01,X,1$9 

10090 NEXT X 

10100 GOTO 10100 

READY. 



Line designs 

With computers that feature a DRAW command, it’s 
easy to produce designs that use the command with 
STEP to make interesting displays. With the draw 
routine in memory, you can do this with the 
Commodore. The following program is a simple 
example of this technique. It uses routines in all four 


LINE WEB PROGRAM 

00=12 

How the program works 

The program uses the draw 
routine to produce 
interconnecting lines. The plot 
routine (line 10010) is used to 
reset the draw routine’s last 
coordinate to 0,0. Try 
removing the SYS Cl 
command and see what 
happens if you run the 
program more than once. 
Lines 10000-10010 set up 
and color the high-resolution 
screen. 

Lines 10020-10050 form the 
first loop that draws lines from 
the top of the screen down to a 
single point at the bottom. 
Lines 10060-10090 form a 
loop which repeats the process 
upside-down. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

C Plot 

15 

D Draw 

17 



































Testing the draw routine’s memory 

Making the computer draw a line is substantially more 
complex than instructing it to plot a point., as the length 
of block D shows. Much of the machine-code in this 
block is concerned with making the computer 
remember which was the last point it visited. You can 
see how it uses this information if you try out the next 
program. To run it, you will need to load or key in blocks 
A, B and D, if you don’t still have them in memory from 
the previous program. If you have all the blocks in 
memory, and block C as well, you don’t have to do 
anything with the machine-code routines. Just change 
the main program from line 10000 upward. 

After line 10010 has set up the high-resolution screen, 
lines 10020-10070 select two random coordinates, and 
then draw a line to this point from the last point visited. 
The draw routine has to remember and update the 
current last point. If a point is off-screen, the routine will 
still remember where it is although it cannot actually be 
seen. This means that the program can continue even if 
its results are invisible. 



BLOCK D 


DRAW routine 


What the routine does 

The routine draws a line from the last point visited to the point 
specified. The routine accepts a pair of coordinates which set 
the final point in the line (the screen coordinates are shown in 
the grid on page 63). The draw routine is not restricted to 
working only with points that lie within the screen boundary. If 
either or both of the points involved are off the screen, the line 
will still appear correctly, but will be “clipped” by the screen 
edges. The draw routine is essential for the operation of the 
circle and arc routines (see page 21). 




























LINE GRAPHICS 2 


When you use the draw routine, you can either specify 
separately each line that you want the computer to draw 
or you can use a program sequence to specify a number 
of lines. Drawing parallel lines a set distance apart is 
quite easy — you just use a FOR . . . NEXT loop with 
STEP. However, with a slightly different kind of 
program, you can produce series of lines which combine 
to produce special visual effects. 

Radiating patterns 

If you make the Commodore draw radiating lines close 
together, you will find that it produces some interesting 
patterns. This is because the screen resolution, although 
good, is limited. Sloping lines are actually drawn as a 
series of steps, and these sometimes combine to give 
unexpected secondary shapes. You can see this kind of 
pattern if you try out the Radiating Pattern program 
below. It uses routine blocks A-D. The type of pattern 


RADIATING PATTERN PROGRAM 



produced depends on how close together the lines are. 
Try altering the STEP value and see what happens. 

Drawing diamonds 

You can make the draw routine build up shapes if you 
use a loop. The Diamond program below does this — it 
draws a succession of diamonds, starting with the widest 
that will fit on the screen and then narrowing down. 
Note that if you change the STEP size to an even 
number, the shaded effect on the two diagonally 
opposite faces will disappear. The program uses blocks 
A-D. 

Line landscapes 

By using the draw routine and then adding different 
colors to parts of the screen with the block-color routine, 
you can build up quite complex pictures. The Line 
Landscape program shows you one way you can do this. 
























10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

1O170 

10180 

10190 

102OO 

10210 

1022O 

READY. 


LINE LANDSCAPE PROGRAM 


SYS A± : SYS B1.112 
FOR X=0 TO 320 §TEP 3 
SYS Cl,X,144 
SYS D1,X*4,0 
SYS Cl,X+l,144 
SYS Di,X*4+l,0 
NEXT X : Y=144 
FOR C=2 TO 10 
SYS CI,0.V 
SYS Di,3l9.Y 
Y = V + C : ne*t C 
LX=0 : UX=312 : 

UY=192 : C=13 
POKE 53280.12 
LX=184 : U*=208 


LV=144 
GOSUB 10190 


UY=144 

LX=248 

UY=168 


_ LY=88 

C=68: GOSUB 10190 
UX=296 : LY=56 
- _C=68 : GOSUB 10190 

GOTO 10180 

FOR X=LX TO UX STEP 8 
FOR X= LV T0 STEP 8 


n£xT X : RETURN 


This program draws radiating lines that seem to come 
from a point hidden by a “horizon”. Then, by drawing 
horizontal lines that get closer together away from the 


bottom of the screen, an illusion of distance is created. 
Finally, two “buildings” are produced by the block- 
color routine, using the same color for foreground and 
background so the underlying display is blanked out. 


LINE LANDSCAPE 
PROGRAM 

0035 

How the program works 

The draw routine is used to 
display lines in two different 
ways. The sunset pattern is 
produced by gradually 
decreasing the slope of the 
lines above the horizon, while 
in the foreground the space 
between the lines is 
successively increased. 

Lines 10010-10060 form a 
loop which draws lines of 
decreasing gradient between 
the top of the screen and a 


vertical value of 144. 

Lines 10070-10100 draw the 
perspective lines in the bottom 
part of the screen. 

Lines 10110-10220 

use the block-color routine 

three times to color the shapes. 


ROUTINES USED BY 

THIS PROGRAM 

Page 

Block Routine(s) 

11 

A High-resolution 

13 

B Clear-and-color 


Block-color 

15 

C Plot 

17 

D Draw 
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CIRCLES AND ARCS 1 


The two routines in block E on the opposite page let you 
draw circles and partial circles, or arcs. Both of them 
work by drawing small straight lines, so it’s essential 
that you always have block D, containing the draw 
routine, in memory when you use them. 

To try the program that follows, load routine blocks 
A-D (remember that if you run block A first, you can use 
the merge routine to do this) and then add block E. Now 
key in the BASIC listing that follows. The program 
activates the circle routine with the command SYS El, 
and the arc routine with the command SYS E2, using 
them a total of nine times. The circle routine uses three 
parameters while the arc routine uses five. They are all 
explained on the next page. 

The routines you have loaded in will also enable the 
program to use DATA to control plotting. This facility is 
provided by the restore routine. Here it makes the 
program READ DATA from line 15000. 

TELEPHONE PROGRAM 

00/7 

How the program works 

All the instructions for the 
straight lines in the display are 
held in DATA statements. The 
program READs these in 
sequence, and then uses the 
plot or draw routines. It then 
adds the circles and arcs. 

Line 10010 makes the 
program READ the DATA 
from line 15000 onward. 

Lines 10030-10080 activate 
the plot and draw' routines. 

Lines 10090-10180 produce a 
total of nine circles and arcs. 

Line 10190 stops the READY 
message spoiling the display. 

Lines 15000-15140 contain 
DATA that select routines and 
fix coordinates. 


TELEPHONE PROGRAM 


LIST 10000-10190 

10000 SVS A1 : SVS Bi,4 

i 0 0 °0 L 2°0 F=0 3280.6 

10040 IF A X=-i V THEH F = V : GOTO 10030 
10050 IF X<0 THEN 10090 

10070 IF F = 0 THEN Ivl cfx'v 

10090 SVS°E2?iio,220,196,25i,289 
10100 SVS E2,160,220,183,256,t83 
10110 SVS E2,100,56,22,165,345 
10120 SVS E2,220,56,22,195,15 
10130 SVS El,160,120,35 
10140 SVS El,160,120,25 
10150 SVS El,160,120,12 
10170 SVS E2,128,160,34,14,166 
'10180 SVS E2,128,160,33,14,166 
10190 GOTO 10190 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

Restore 


B Clear-and-color 

13 

C Plot 

15 

D Draw 

17 

E Circle 

21 

Arc 






































































The second screen of the listing consists entirely of the 
DATA needed for plotting and drawing the straight 
parts of the display. 


TELEPHONE PROGRAM (CONTD.) 


LIST 15000- 


15000 

15010 

15020 

15030 

15040 

15050 

15060 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

READY. 


120.168. - 1 .J 
128,72,128,; 
140,56,180,! 
192,40.192. 1 
200,168,120 
168,144,-1, 

165:iii:i68 

95.168, -l,l 
80,61,73,64 
- 2,0 


1,112,88 

46.138.40 

56.182.40 
72,208,88 
, 168 ,- 1,0 

,138,168.132 

:,144,-i,6 

’.iiijo.-i.o 

i:lLie « 80 - 60 


How to use the circle and arc routines 

The circle routine is very straightforward to use. All you 
have to do is decide where you want the center of the 
circle to be, and how long you want its radius. If you 
want to draw a circle at the center of the screen 
(160,100) with a radius of 50 pixels, you would key in: 

SYS El,160,100,50 


Using the arc routine requires a bit more planning. 
The parameters that you need to specify are the same as 
those for the circle, but in addition you need to supply 
two numbers — a starting angle (P) and a finishing angle 
(Q). This enables the routine to draw just part of a 
complete circle. Both the angles are measured in 
degrees starting at the positive horizontal axis, and 
turning clockwise around to the angles’ radii. Suppose 
you wanted to draw an arc like this: 


ARC ROUTINE PARAMETERS 

X,Y=T60,100 

R=50 

P=315 

0=105 I 

R A 
/ \ 

( /X.Y \ 


7 —^ / h 

/_'-"''Q / 

Resulting arc 

The complete command for the arc would be: 

SYS E2,160,100,50,315,105 

Remember that all positions and lengths are in pixels, 
and all angles in degrees. 


CIRCLE and ARC routines 


What the routines do 

Circle draws a circle of a specified radius and center. 
Arc draws part of a circle. Both use the draw routine. 


SYNTAX AND PARAMETERS 

Circle: SYS E1,X,Y,R Arc: SYS E2,X,Y,R,P,Q 

X.Y 

Horizontal and vertical coordinates of the center of 
the circle or arc (ranges 0-319 and 0-199; values 
higher than these will still be accepted but may 
produce off-screen images). 

R 

Length of radius in pixels (no range limit). 

P 

(Arc only) Angle at which the arc is to start, 
measured in degrees clockwise from positive 
horizontal axis (no range limit). 

Q 

(Arc only) Angle at which the arc is to finish, 
measured in degrees clockwise from positive 
horizontal axis (no range limit). 


ROUTINE LISTING 


IF PEEK<50202>=169 THEN 2530 

SYS A3,2540 : FOR C=50i92 TO 50549 

READ B : POKE C.B NEXT C 

Ei=50202 : E2=50225 

DATA 0,0,0,0,0,0,0 

DATA 0.0,0,i69,1,141,4 

DATA 162 , 162 ,0,142,2$,196,142 

DATA 23,1.96,16^,104, 142.24,196 

DATA 141,25.196,208,5, 169 , 6 ^ 

DATA 141,4,192,42,46,192,140 


16,196,142 

194,146.18 

32.40.162, 
21,196,174 
32,40.192, 
23,196,32, 
196.144 .26 

173 . 7 . 162 , 


,17,196.32.40 

, 196,146,16,196 

140,^0,196,142 
,4,192,208,18 
146.22,196,142 
40.192,140,24 

,166,169,1,141 

25,192,62.229 

192,141.8,192 

141,9,162,173 


10,192,141,12,192,173,11 
196,14l,13,196,32,211,196 
144,19,173,24.196,105,104 
141 24.196.176.25.196.105 

itjfhhuffsibihi?!!, 


DATA 196,173,25,196.141.23,196 
DATA 32.629,196,76.185,194,56 
DATA 176.24,196,237.22,196,173 
DATA 25,196,237.23,196,56,48 
DATA 1,64.96,166,0,141,4 
DATA 162 . 62 . 70 , 167 , 32 , 100,226 

88S8 

data il4?l6i.i6l.lLl4e.i4i, 


DATA 192.165,100,109,17.196,141 
DATA 7.l63,l6§,i.l41.4.192 
DATA 36,70.197.36.100.626.32 

8 8 ii‘I ■ ; ‘ * 1 i 

m 11jit i|! ; ft !| !l 

DATA 140,l86,160,§0,169,0,32 


|g?8 88J8 JSiITfdfMIiiflUlir 

$0§0 DATA l 4 ^{66S|6tl,io6,23^196 
$040 DATA 32.145,179,165,97,76,43 
$050 DATA 186 










































CIRCLES AND ARCS 2 


One technique which may be new to you, but which can 
be used to great effect, is recursion. Recursion means 
repetition, but it’s repetition of a special kind. On these 
two pages, you can develop a program that produces 
recursive patterns with circles. 

Recursion with circles 

The listings opposite show you one of the big advantages 
of recursion — programs that are quite short can 
produce complex displays. To see the first display 
below, load blocks A, B, D and E, if you don’t have them 
in memory already, key in the first listing opposite, and 
then run it. The program repeatedly draws smaller and 
smaller circles until it has produced a sequence of seven, 
and then it starts the process again from another 
position. 

Once you have run this program, you can start to alter 



ADAPTED RECURSIVE CIRCLES 



it. The most obvious change you can make is to the limit 
set by line 20000. After you have done that, try altering 
the values in line 20010. Here is one way to do it: 

20010 SYS E1,X(L),100+13*L,R(L) 

This makes the height of each circle above the bottom of 
the screen vary, as you can see from the second of the 
small displays below. 

After you have made the program draw circles at 
different heights, you can extend it so that the pattern is 
reflected in the horizontal axis as well. All that is needed 
is a second BASIC subroutine, starting at line 30000, 
and a line to call it. The altered program is the second 
listing opposite. It produces the big display shown 
below. 



■ *••*•••* 



































































































RECURSIVE CIRCLES PROGRAM 


DOUBLE RECURSION PROGRAM 



LIST 


10000 

10010 

10020 

10030 

10040 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

READV 


L 


in 

p o° 0 ihB 5 n s 0 °ob 4 

IF T L=7°THEH L=L-1 : RETURN 

R<L*i>=R<L)>2° 0 ' 

X<L+±)=X<L>+R(L> 

L=L+1 : GOSUB 20000 
X<L + ±>=X<L>-R<L:> ^ 

L=L +1 : GOSUB 20000 
L=L-i : RETURN 



SVS Ai : SVS Bi,7 
L = 0 : X<L>=160 : R<L> =80 
POKE 53280,4 
GOSUB 20000 

L = 0 : X< L > = 160 : R<L>=80 
GOSUB 30000 
GOTO 10060 

IF L=7 THEN L=L-1 : RETURN 
SVS EI,X<L>,i00+±3*L,R<L> 
R<L*i>=R<L>/2 
XCL+1>=X<L>+R<L> 

L=L+1 : GOSUB 20000 
X<L+1>=X<L>-R<L> 

L=L+1 : GOSUB 20000 

L = L-1 : RETURN _ Tiinu 

IF L=7 THEN L=L-1 : RETURN _ x 

SVS EJL,X<L>,i99-<iO0 + I3*L>,R<L> 

R<L*l>=R<L>/2 

X<L+i>=X(L>+R<L> 

L=L+1 : GOSUB 30000 

X<L+1>=X<L>-R<L> 

L = L + i : GOSUB 30000 
L = L-1 : RETURN 



DOUBLE RECURSION 
PROGRAM 



05-30 

How the program works 

The program repeatedly calls 
the circle routine. Every time it 
does so, the horizontal position 
and radius of the circle is set by 
values stored as array variables. 
Line 10000 sets up the high- 
resolution screen and the 
colors. 

Line 10060 loops back on 
itself after both sets of 
recursions have been 
completed. 

Lines 20000-20070 form a 
BASIC subroutine which 
repeatedly draws circles with 
different radii at different 
coordinates, until the limiting 
condition in line 20000 is met. 
Lines 30000-30070 form a 
second subroutine which 
produces a mirror-image of the 
display created by the first. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

D Draw 

17 

E Circle. 

21 











































OVERPRINTING AND ERASING 


Normally if you print one shape over another on the 
Commodore, the second simply replaces the first. 
However, with the routine in block F on the opposite 
page you can achieve some different effects. This 
routine is activated by SYS Fl,l and is turned oil by 
SYS F1,0. It’s called the erase routine, but as you will 
see, this is a simplification because its effects can be 
quite subtle. 

Patterns with the erase routine 

With heavily colored shapes, you can sometimes 
produce some interesting patterns by using the erase 
routine to overprint them. The next program produces 
a practically solid circle on a grid by drawing hundreds 
of radiating lines. When the circle is first drawn, it is 
solid, but when it is overprinted the erase routine 
creates a pattern as the lines are canceled out. This 
cycle continues as long as the program runs. 


OVERPRINTED CIRCLE PROGRAM 


10000 SVS ftl r SVS BI,7 s SYS FI,8 = POK 

10 §i0 8 r6R X=0 TO 319 STEP 20 

J 0020 SVS Ci,X,0 
0030 SVS 01,X,199 

10050 FOR T V=0 TO 199 STEP 20 

10070 i$i Di;li9,V 

10090 F0R T A=0 TO 2**f STEP 0.01 

10110 Jvi Di^lloilOO»COS<A>,100*100»SIH< 

10130 SYsVl.l : GOTO 10090 



































































































































ROTATING SQUARES PROGRAM 


10000 

10010 

10020 

10030 

10040 

10050 

100S0 

10070 

10080 

10090 

10100 

10110 

READY 


P0KE A 53^8<kI ^SyI F 1,1 
F0R_C=250 to 0 STEP -t 

X=C*COS<A> : V = C*SIN C A) 
SYS C1,X+160,Y+100 
SYS CJL,X + I60,Y + JLOO 
SYS Di,160-Y,igg + X 
SYS Di,160-X,IOO-Y 
SYS Di,160*V,i0O-X 
SVS Di,±60+X,i00+V 
NEXT C : G0T6 i0020 


ROTATING SQUARES DISPLAY 



NJfo' \ ft 1 

- n. 

v' T 


j m 

% 0 

m , 


How to use the erase routine 

The Rotating Squares program above shows you how 
the erase routine can be used to wipe away a design. In 
this program, a nest of squares is built up on the screen. 

Lines 10090-10120 draw the 
solid circle. 

Line 10130 starts the process 


OVERPRINTED CIRCLE 
PROGRAM 


Ob 20 


again, but this time with the 
erase routine switched on. 


How the program works 

The grid and solid circle are 
drawn while the erase routine 
is turned off. It is then turned 
on, so that when the circle is 
repeated it produces a 
canceled-pixel pattern. The 
time given above is for the 
program to draw through 360 
degrees. 

Line 10000 switches off the 
erase routine. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

C Plot 

15 

D Draw 

17 

F Erase 

25 


BLOCK F 

ERASE routine 


What the routine does 

The routine is used to affect the operation of the previous 
graphics routines by activating an "exclusive-OR” mode on the 
screen. This means that after the erase routine is turned on, a 
pixel plotted over one already lit will cancel it out. A pixel 
plotted on an unlit (background) pixel will appear normally. The 
routine can therefore be used to erase all or part of a display by 
redrawing it. Note that this routine must be turned off when 
drawing closed shapes which are later to be filled. 


SYNTAX AND PARAMETERS 


SYS Fl.N 


N 


Off or on (0^—off, l=on). 


ROUTINE LISTING 


□ 


3200 IF PEEK<50560>=32 THEN 3230 
3210 SYS 03,3240 : FOR C=50560 TO 50578 

3220 READ B : POKE C,B : NEXT C 
3230 Fi=50560 

3240 DATA 32.40,192,152,208.7,138 
3250 DATA 20&,4,i4i.29,192,96,169 
3260 DATA 1,141,29,192,96 


When the program repeats itself, instead of just 
overprinting the design, the computer starts to erase it. 
This is caused by line 10010. The SYS FI, 1 command 
turns on an “exclusive-OR” drawing facility. What this 
means is that whenever the computer overprints a pixel 
lit in the foreground color, it cancels it out, turning it off. 
Because the lines are quite far apart, they just 
disappear, unlike those in the Overprinted Circle 
program, which are close enough together to affect each 
other. 

Points to watch with the erase routine 

If you want to remove a display from the screen, 
always erase by drawing again in exactly the same 
order. You can do this quite simply by looping the 
program back with the erase routine switched on. 
However, remember that if your display contains 
many lines close together or overlapping, you may not 
be able to erase them all without producing an effect of 
the kind shown by the Overprinted Circle program. 

When you are drawing closed shapes with the erase 
routine turned on, you will find that final points plotted 
on complete outlines are canceled out, leaving a single 
pixel gap. This is a problem if you later want to fill a 
shape. Therefore always keep the erase routine turned 
off when you are not using it. It’s a good idea to switch it 
off from within a program when a display is completed. 
However, if you suspect that you have left the routine 
on, you can switch it off by a direct command. 










































FILLING SHAPES 1 


Having found out how to draw outlines, the next step 
is filling them in. Block G on the opposite page 
contains a flood-fill routine, that is, it rapidly fills 
closed shapes with solid color. It will fill almost any 
regular or irregular shape. All you have to do is specify 
any point inside the shape and the routine will fill all 
around the point until it reaches the boundaries. 

How the flood-fill routine works 

What the flood-fill routine does is to search for 
background pixels and light them in the foreground 
color. It continues to search in each particular 
direction until it meets a boundary of lit pixels or until 
it reaches the edge of the screen. So when you are 
designing your own pictures using the flood-fill 
routine, you must take care that there are no gaps in 
the boundary surrounding the area to be filled, or the 
color will “leak” out into areas you may not have 


planned to fill. 

You will find that this routine will fill almost any 
shape that you want it to. It “remembers” to go back to 
regions of a shape so that all of it is filled in. However, 
due to the limited memory space available for the 
routine’s calculations, you may come across shapes 
that the routine cannot deal with. If this happens, you 
will get an ILLEGAL QTY ERR message. To 
overcome this problem, all you have to do is split up 
the area to be filled into a number of smaller, simpler 
areas and flood-fill each one separately. 

Filling in a seascape 

The program on these two pages shows a quite complex 
display being filled and then colored. The block-color 
routine is used to set up separate areas each with a 
different color combination. Remember to make sure 
that the erase routine is not still switched on if you have 


SEASCAPE PROGRAM 


10000 SVS Ai : SYS Bl,14 : SYS A3,10060 
10010 SVS Cl,0,56 
10020 FOR H = i tO 11 
10030 READ X,Y 
10040 SVS 01,X,Y 
10050 NEXT N 
10060 DATA 0.56,16,40,48,72,64,64,112,15 
2.120,140.136,160 

16070 DAT6 166,144,208,168,248,144,319,1 
76 

10080 SYS Cl.104,136 
10090 FOR N=i TO 6 
10100 READ X,Y 
10110 SVS Di,X,V 
10120 NEXT N 

10130 DATA 136,36,160,112,168,108,200,12 
8.216,120,232,136 
i6l40 SYS Cl,289,135 
10150 SYS Dl,312,96 
10160 SYS Dl,319,104 
10170 SVS G1,48, i.60 
10180 SYS Cl,10$,136 

READY. 










































just tried out the programs on pages 24-25. If it is, you 
will find that the flood-fill routine “escapes” and fills the 
whole screen. 


SEASCAPE PROGRAM 

0100 

How the program works 

First an outline is drawn in 
black over blue. This is then 
filled with solid black. Finally 
the block color routine is used 
to color the display selectively. 
In some places, the colors have 
to be changed more than once. 
Line 10000 calls the high- 
resolution routine, sets up the 
colors and resets the DATA 
pointer to line 10060. 

Lines 10010-10230 

use the plot, draw and flood-fill 

routines to produce and fill the 

outline. 


Lines 10240-10350 use the 

block-color routine to color the 
result. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

Restore 


B Clear-and-color 

13 

Block-color 


C Plot 

15 

D Draw 

17 

E Circle 

21 

G Flood-fill 

27 


BLOCK G 


FLOOD-FILL routine 


What the routine does 

Flood-fill fills a closed regular or irregular shape with the 
current foreground color, given a single starting point within 
the shape. The routine operates by rapidly drawing lines 
horizontally until a boundary is detected, and then by 
repeating the process above and below the original line until 
the shape is filled. Because the routine operates on the single¬ 
pixel level, a pixel missing in any boundary will eventually allow 
the routine to escape and start filling outside the shape. For 
this reason it will only fill a complete shape. Very complex 
shapes may generate an ILLEGAL QTY ERR report. This can be 
avoided by splitting an area up into smaller parts. 


SYNTAX AND PARAMETERS 


SYS Gl.X.Y 


X.Y 


Horizontal and vertical coordinates of point where 
filling is to start (ranges 0-319 and 0-199). 


ROUTINE LISTING 


IF PEEK<50694)=32 
SVS 03,3540 : FOR 
READ B : POKE C,B 
Gi = 50694 


THEN 3530 
C=50694 TO 51086 
: NEXT C 


DATA 32,40,192,32,224,192,144 
DATA 5,162,14.tb,45,1^4, 142 

DATA 12^ 176,' 2 37,140 

DATA 169.O,14i,0,i98.141.i 
DATA 198,141,2,1§8,5$,17$.4 
DATA 198,233,1,141,4,i98,i68 
DATA 173,5,168.233,0,141.5 
DATA 198, ltO, 36.224. 1.92.1.76.9 
DATA 152,172,3,198,62,118,1$9 
DATA 240,223,24.176.4.198.105 
DATA 1.141,4,198.141,8.192 

Bata ill;l4i?$'f8?i92 

ISIS f}4?fi4rl:fil;i?5:3;S88 


6,174 


y fifty 

198,174,3,198,236,146.4 
192,32,tO,199,172,3,1§8 

32®il8^i9§;246jl0;it^2 

ill;24,i7$f4?i9$^10$?i 

168.173,5,198,105,0,170 
32.$24.196.176.12.i$2,172 
3.i98,$2,li8.l69,608,6 
76,92,196.176.O.i98.608 
1,66,169.6,141,1,196 

141.6.196.172.6.198.136 

185.160.167.141.4.168.136 

185.160.197.141.5.198.136 
185.160.197,141,3,198,140 
0,168,76,59,198,1*2,4 




F 5 ;ill;i|i:118;ill;S88 

!;y4?taf 





































































































































































FILLING SHAPES 2 


If you want to produce a colored and filled picture, it’s 
important to bear in mind the Commodore’s color 
restrictions when you are designing the display. You 
can use all of the Commodore’s 16 colors on the screen 
at once, but if you are using the bit-map mode (as all 
the programs in this book do) you cannot get more 
than two colors into a single 8x8 pixel block. 

Consider the following problem — suppose that the 
first of the following diagrams is part of a picture. How 
can you color the three areas shown if you can use only 
one foreground color and one background color in each 
8x8 pixel block? 

It sounds easy but imagine what would be involved. 
Suppose you decide to fill just the area colored yellow. 
Yellow becomes the foreground color, so, because it is 
adjacent to the blue area at the bottom of the design, 
blue needs to be the background color. Now look at the 
red area at the top. On the boundary with the yellow 
foreground area, red must be the background color. But 

JUNGLE PROGRAM 


How the program works 

The program first draws and 
fills the forest in black and 
white. The block-color routine 
is then used to set up the blue 
and green colors. Any one 
color may be either foreground 
or background in different 
parts of the display. 

Line 10010 resets the DATA 
pointer to ensure that reading 
starts at the right point (line 
15000). 

Lines 10030-10080 form a 
loop which interprets the 
DATA as instructions to plot 
and draw. 

Lines 10090-10151 fill and 
color the result. 

Lines 20000-20030 form the 
block-coloring subroutine. 


on the boundary with the blue background area, red 
must be the foreground color. How can red be 
foreground and background at once? It sounds 
impossible, but there is a way of producing this result. It 
depends how you divide up the screen. 


A COLORING PROBLEM 




ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

Restore 


B Clear-and-color 

13 

Block-color 


C Plot 

15 

D Draw 

17 

G Flood-fill 

27 








































































































































To solve this problem, you need to think of the screen as 
being divided up into rectangles with different color 
combinations set up by the block-color routine. Each 
rectangle contains two colors. One color may be 
background in one rectangle and foreground in 
another. In this way you can use block-coloring to 
produce the kind of coloring needed. The diagram 
below shows how it could be done. 

THE COLORING PROBLEM SOLUTION 




Filling and coloring a complex picture 

The program below produces a complex filled and 
colored display. It’s a view from a jungle clearing, 
looking out through the trees to a distant hilltop. 

' JUNGLE PROGRAM 


JL0O00 

10010 

10020 

10030 

1004O 

10O50 

10080 

1007O 

10O8O 

10090 

1010O 

10110 

10120 

10130 

10140 

10150 

15000 

15010 

15020 

15030 

15040 

15050 


SVS Ai : SVS Bi,i 6 : POKE 53280,0 
SVS A3,15000 
F =0 

READ X.V 

IF X=-i THEN F = V : GOTO 10030 

IF X<0 THEN 10O90 

IF F = 1 THEN SYS Di,X,Y 

IF F = 0 THEN SYS C1,X,Y 

GOTO 10030 

SVS Gi,160,80 

SVS Gi.160,180 

POKE 53280,0 

FOR K=i TO 10 

READ LX.UX.LV.UV.C 

GOSUB 26006 : NEXT K 

GOTO 10150 

DATA 12,168,-1.1,14,95 
DATA 47,95,15,67,15,24 
DATA 28,56,28,38,32,48 
DATA 36,16.48.63.84.168 
DATA 80,176,66,164,64,168 
DATA 61,156,58,160,53,150 


S' 


EADV. 


15060 

15070 

15080 

iifgg 

it"S 

15130 

15140 

15150 

15160 

15170 

15180 

15190 

15200 

15210 

15220 

15230 

15240 

15250 


DATA 48,168,35,154,32,162 
DATA 22.151.12.168,-1.0 
DATA 106.166.-1.1,79.96 
DATA 53 , 20 , 56 , 26 , 69,33 
DATA 72,20,84,56,88.48 
DATA 91,60,104.43.112,60 
DATA 116,44,126,71,132,66 
DATA 148,71,148,44,184,71 
DATA 192,80.184.96,150.160 
DATA 140,166,136,154,126,148 
DATA 120,160,114,150,114.126 
DATA 108,150,100.160,-1.6 
DATA 168,160,-1,1,204.96 
DATA 227,128,244,166,628,172 
DATA 216.160,208,164,196,148 
DATA 1901160,170,166.168.160 

[>2™ I^ 6 i?°?68 A 6o A l96 A !i' 34 

DATA ? 204' 24'212'24^ 214' 30 
DATA 224,24,228,30,244.14 

DATA 250,22,204.71.-1.6 _ ^ 

DATA 216,84,-1,1, 26 1,63,266,28 


£ 


EADV. 


i?!!8 

ill!? 

15320 

15330 

15340 

15350 

15360 

15370 

15380 

15390 

15400 

15410 

15420 

15430 

15440 

JOOO 

m° 9 


DATA 268,44,278,32,281,56 
DATA 288,48,292,56,298,40 
DATA 308,34,305,64,272,64 
DATA 232,71.303.71.286,168 
DATA 280,168,272,160,264,168 
DATA 216,84, •* 1,0,183,95 , ~ 1,1 
DATA 80,95,100,88,126.80 
DATA 144,74,18$,72,183,95,-2,0 
DATA 0,312,6,56.6 
DATA 0 , 312 , 96 , 162,13 
DATA 0,8,64,86,0 _ 

DATA 16,40,64,68,214 
DATA 48,72,64,88,6 
DATA 80,176,72,86,214 

?§i 2 ^6 6 ^ 6 8& 6 13 
DATA 184.296.72.88.Id 

DATA 232,296,64,64,214 

DATA 304,312,64,88,0 

FOR X=LX TO OX STEP 8 

FOR V=LV TO UV STEP 8 

HEXT B v'?'n6XT X : RETURN 
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HIGH-RESOLUTION TEXT 


One problem with using the Commodore 64 in high 
resolution is that there are no facilities for printing 
text. Obviously, if you have large volumes of text to 
display on the screen, then it is easier to do this in low 
resolution (text mode). Sometimes, however, there is a 
need to put a few characters on a display. The listing in 
block H on the opposite page contains two new 
routines which enable you to do this. They are the 
ROM-copy routine and the text routine. If you want to 
put text on the screen, you need to use both of these 
routines. 

Copying the Commodore’s character set 

If you have read Book Two in this series, you will know 
that it is possible to make a copy of the Commodore's 
standard character set, which is held in ROM, and put 
this copy into RAM, where it can be modified. This 
copying is performed by the ROM-copy routine. When 
the block H machine code is in memory, you can use 
SYS HI to copy the ROM character set. You won’t see 
anything after activating the ROM-copy routine. 
However, afterwards you can use the text routine to 
take any of the copied characters and print them on the 
screen. To display text, all you have to do is use SYS H2, 
followed by the text. The routine prevents the 
characters appearing as colored blocks. 


Using high-resolution text in games 

There are many times during a game where text on the 
high-resolution screen can be used. The following 
program produces a favorite — a flight simulator. 
Although the display is only static, it is very detailed. To 
run it, load or key in the routines listed next to the 
display, and then add the program. The routines and 
coordinates are all keyed in as DATA. 


FLIGHT SIMULATOR PROGRAM 


16000 SVS ftl : SVS 01,16 : SYS 03,15000 

!SS‘8 m , svs H, 

10040 IF A X=-i V THEN F = Y : GOTO 10030 
10050 IF X<0 THEN 10090 
10060 IF F=1 THEN SYS D1,X,Y 
10070 IF F=0 THEN SYS Ci,X,Y 
10080 GOTO 10030 

10090 FOR C=1 TO 19 : READ X,Y,T$ 

10100 SYS H2,X,V,T$ : NEXT C 

10110 SYS Gl,±$2,146 ^ _ __ 

10120 SVS Gi.40,40 : SYS Gl,296,160 

10130 FOR K=1 TO 10 

10140 READ LX,LV,UX,UY,C 

10150 GOSUB 26006 : NE*T K 

10160 SYS 82.96.136,153 

10170 GOTO l6l76 , ^ 

15000 DATA 0,120,-1,1,319,120.-1,0 
15010 DATA 8.120,-1.1.160.0,-1,0 ^ 

15020 DATA 160 , 24 ,-i,i, 166 ,$ 6 ,-1,O 
15030 DATA 144,40,-1,1,176,40,-1,0 

READY. 
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FLIGHT SIMULATOR PROGRAM (CONTD.) 


15040 

15050 

15060 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

15150 

15160 

15170 

15180 

15190 

15200 

18000 

16010 

16020 

16030 

16040 


182,56, 

220.70, 

194.70, 
180.58, 

24.136, 

24.183, 

63.136, 

88.136, 

88.183. 

271.136 

216.136 

303.136 

288.136 
303,156 
173,132 
160,164 
164.160 

16.176, 

16.144, 

48.176, 

48.144, 

80.176, 


-1.1,196,67.220.67 
206,t0,2i7,6i,2l2,85 
178,70,178.67,191,67 
182,56.-1,6 
-i,i,3i,1^6,31,183 

63,183,56,183. 1.0 

—x,x,y j. loo,yOixoo 

-1,0,216,136,-1,1 
,2^1.159.216.159 
,-1.6.286.136,-1,1 
,306.191,688.i91 
,-1,6,286,156,-1,1 
,-1,0,129,167,-1,1 
-llo 160.156.-1,1 
,166.160,156,160 

"4"^ 48,128, 6* 

••0*\8O, ±60, ■ , 2'* 


LIST 16050- 

16050 DATA 80,144• "4", 80.128,"6" 

16060 DATA 126,156,"O*.i6o,1&4, 

16070 DATA 152,192, "90 A , 184.184 "45 M 
16080 DATA 192,152, "O", 624, 144, '•82165** 
16090 DATA 224, 176, "CShSA" 

17000 DATA 0.0,312.112.101.144.24,216 
17010 DATA 86.6,0.i20,6l2.i92,i2 
17020 DATA 2l6,136,264. 156.22 ,288,136 
17030 DATA 296,184.18.62,l66,32,144,153 
17040 DATA 32,152.62,176,119,64.136.64 
17050 DATA 156,156,64.166.64,176,119 
17060 DATA 96,144,66,176.119 
20000 FOR X=LX TO UX STEP 8 
20010 FOR V=LV TO UV STEP 8 
20020 SYS B2,X,Y,C „ _ 

20030 NEXT Y : NEXT X : RETURN 
READY. 


FLIGHT SIMULATOR 
PROGRAM 


00*35 


How the program works 

The display is first drawn, and 
then the program uses the text 
routine to add numbers and 
labels to parts of the display. It 
is finally flood-filled and then 
colored. 

Line 10000 sets up the high- 
resolution screen and the over¬ 
all colors. 

Line 10020 copies the ROM 
character set so it can be used 
by the text routine. 

Lines 10030-10120 READ 
the DATA block, either 
producing points or lines or 
(line 10100) putting text from 
the DATA lines onto the 
screen. 


Lines 10130-10150 call the 
block-coloring subroutine. 
Lines 20000-20030 form the 
subroutine which contains the 
block-color routine. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

Restore 


B Clear-and-color 

13 

Block-color 


C Plot 

15 

D Draw 

17 

E Circle 

21 

G Flood-fill 

27 

H ROM-copy 

31 

Text 



BLOCK H 


ROM-COPY and TEXT routines 


What the routines do 

ROM-copy copies the standard character set from ROM into 
RAM so that the characters can be used in high-resolution 
displays with the text routine. 

Text displays any text on the high-resolution screen. The text 
is displayed starting at an 8x8 pixel block which can be fixed by 
specifying any point which lies within it. 


SYNTAX AND PARAMETERS 

ROM-copy: SYS HI Text: SYS H2,X,Y,A$ 

X,Y 

(Text only) Horizontal and vertical coordinates of 
any point within the 8x8 pixel block where the first 
character is to appear. 

A$ 

(Text only) Any text. 


ROUTINE LISTING 


IF PEEK<51104)=173 THEM 4230 

SYS A3,4240 : FOR C=5il04 TO 51306 

READ B : POKE C,8 : NEXT C 

Hi=51104 : H2=5il67 

DATA 173,14,220,41.254.141,14 

DATA 220,16$.1,41,£51,133,1 

Bars ll;ill;i?S;ill;f * 3 

DATA 9,4,133,1,173,14.220 
DATA 9,1,141, 14 , 226 , 96,177 
DATA 2$1,145,256.206,268.249,96 
DATA 32,40.i$2,3$,224,19$.144 
DATA 3,76.234.193,152,41,£48 

DATA 40^i9£!J2'236j!$2?lti?236 

Bara ilhSLitfiMbllstlSs 142 

DATA 174,32,156,176,£2,163,182 

DATA 141,2.198,169,0,141,1. 

DATA 198,133,2$2,3£,6,19$,165 
DATA 254,201,64,144,7,165,253 

8S!8 

DATA 198,172,1,196,17t,34,200 
DATA 140,1,i$8,10,£8,2$2,i0 
DATA 38,£5£,10,38,25£,13£,25i 
DATA 16$,2S£,l65,i6,iS3,2$2,160 


Using the text routine 

The text routine will put any text you like at the point 
with coordinates X,Y on the high-resolution screen. It 
rounds down the coordinates you specify to the nearest 
8 so that they bring the character onto a low-resolution 
boundary. This is done to make changing character 
foreground and background colors more easy. 

With this routine, the text doesn’t have to be a letter 
or word — it can be a string expression that is 
evaluated into text. So you could use something as 
simple as “FRED”, or you could use something as 
complex as CHR$(27)+“=”-FA$. However, the text 
routine cannot deal with numeric expressions. These 
must be converted to string expressions first. 
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DESIGNING CHARACTERS 


On the previous two pages you saw how the ROM-copy 
routine can be used to copy characters from ROM into 
RAM. One advantage of doing this is that it is a simple 
matter to go on from there to create your own 
characters. Once you have done that, you can use these 
shapes to fill up spaces, giving you the facility to 
“pattern-fill”. The listing in block I on the opposite page 
contains a single routine. This is the define-character 
routine which enables you to define any of the 8x8 
characters stored in RAM. 

How to make a high-resolution character 

If you already know how an 8x8 character is coded, 
you will find this routine quite simple to use as it just 
accepts 8 bytes, one for each row of the character. If 
you haven’t already coded a character on the 
Commodore, all you need to know is that the 8x8 pixel 
grid can be broken down into 8 rows. Each of these is 


coded by a row total. The row total is arrived at by 
adding together the “bit values” of all the filled-in 
pixels in the row. Once you have 8 row totals, these can 
be used with the define-character routine. _ 

_ CODING A CHARACTER _ 

128 64 32 16 8 4 2 1 

0 
32 

64+32+16=112 
128+64+16+8=216 
128+8+4+1=141 
4+2+1=7 
2 
0 


COLOR CHART 
PROGRAM 

00-30 

How the program works 

The program first produces a 
blackboard and an easel by 
drawing, flood-filling and 
block-coloring. After the color 
numbers have been printed by 
the text routine, the same 
routine is used to print a 
specially-defined character. 

The block-color routine makes 
the character appear in all the 
Commodore’s colors. 

Line 10200 defines the square 
color-test character. 

Lines 10140-10250 print the 
numbers using the STRS 
command, and then print the 
color-test characters. 



5 Ip 111?!!! If ill I! H: Sit; H! • 



ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

Restore 


B Clear-and-color 

13 

Block-color 


C Plot 

15 

D Draw 

17 

G Flood-fill 

27 

H ROM-copy 

31 

Text 


1 Define-character 

33 

































































































































































DEF1NE-CHARACTER EXAMPLES 


128 64 32 16 8421 
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SYS 11,60,102,102,102,102. 
102,102,102.102 


SYS 11,61,112,56,28,14,14, 
28,56,112 


COLOR CHART PROGRAM 


1 ST 10000-10190 


8828 

0020 

0030 

0040 

8813 

0070 

0080 

0090 

0100 

0110 

8118 

81^8 

8if8 

18118 


SVS A1 : SYS B1,15B ^ 
SYS HI : POKE 53280,12 
SYS 03,15000 : F=0 

IF ft X=-i V THEN F=V : GOTO 

IF X<0 THEN 10090 

IF F=1 THEN SVS Dl.X.V 

IF F=0 THEN SVS C1,X,V 

GOTO 10030 

SVS Gi,120,180 

SVS 61,208,180 

SVS Gi,160,1 

READ Lfc.LV,UX,UV,C 

GOSUB 20000 

Svl H2?80?32+8«C,STR$<C> 

?^ T C S 10 TO 15 

SVS H2772,32*8*C»STRS<C> 

NEXT C 


GOTO 10030 
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If you give your design character code C, and the row 
totals are X1-X8, then you can put it into the computer's 
memory with__ 

SYS I1,C,X1,X2,X3,X4,X5,X6,X7,X8 

Once the new character is in RAM, you can display it 
on the high-resolution screen with the text routine. 
Furthermore, as you will see on the next four pages, 
you can use the character with the pattern-fill routine 
to fill designs. 

Below are two examples of user-defined characters, 
together with the complete define-character routines 
that produce them. 


Color chart program 

Now that you have seen how to create your own high- 
resolution characters, you should have no trouble 
understanding how the next program works. This 
listing creates a character and then displays it in each 
of the 256 color combinations that the Commodore is 
capable of producing. The numbers down the left- 
hand side of the chart set up the background colors. 
The small square character then appears in all of the 
foreground colors._ 


BLOCK I 


DEFINE-CHARACTER routine 


What the routine does 

The routine defines a character which is then held in RAM. This 
user-defined character can then be called by its CHR$ number. 
The routine accepts nine parameters — a character code, and 
eight row totals which specify the character. Each row total 
consists of the sum of the bit values for all the pixels that are to 
be lit on that row of the character. A row that has no pixels lit 
has a row total of 0, whereas one that has all its pixels lit has a 
row total of 255. The eight rows of a character give eight row 
totals. 


SYNTAX AND PARAMETERS 

SYS I1.C.X1.X2.X3.X4.X5.X6.X7.X8 

C 

Character code (range 0-255). 

X1-X8 

Row bit totals (range 0-255 each). 


ROUTINE LISTING 


IF PEEK<51328>=169 THEM 4630 
SYS 03,4640 : FOR 051328 TO 
READ B : POKE C,B : NEXT C 
11=51328 

DATA 169,0.133,252,32,40,192 

8818 


8r8 4TiS2:is2;!oi;i?!6i,isi 


)Q DATA 4. 
LO DATA 96 


COLOR CHART PROGRAM (CONTD.) 


18210 

10220 

10230 

10240 

10250 

10260 

15000 

15010 

15020 

15030 

15040 

15050 

16000 

20000 

20010 

READY 


10200 - 

! ?5I xi6°t8'iS 6 ?'r8lS s y4 0 to'i5 

) SYS H2,XI,Yl,CHRS(O) 

I NEXT v': AEXt X 

I Issls I88:f||:lb:li|:|i8d88 

> BOIO. 64 / .ft4 JL 248, i66^i| 


188 5:t$ ?8 85 ITEf 8 

§nT B 5-5'St5r X . RET 


RETURN 


Mixing text and defined characters 

You can use defined characters just like ordinary text, 
so that if you want to, you can mix them with text. But 
remember that to do this, you must first use the ROM- 
copy routine so that the text characters are in RAM, 
where you can use the define-character routine to 
change them. 
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PATTERN-FILLING 1 


Over the last few pages you have seen how you can use 
the graphics routines to put text up on the screen and 
how to define your own characters. Now you have got 
this far, you can add another facility whose usefulness 
is out of all proportion to its simplicity — a routine 
which fills irregular shapes with a pattern which you 
can specify. 

The listing in block J opposite contains the pattern-fill 
routine. To use the routine you need to specify the 
coordinates of a point where filling is to begin, as with 
the flood-fill routine. However, after the coordinates, 
you then need to specify a character number. The 
computer will use this character to fill the shape. If you 
first define a character with the define-character 
routine, you can then use it to pattern-fill. 

To see the pattern-fill routine in action, load or key in 
routine blocks A-E and H, add block J and then the 
program below. 


PATTERN-FILL PROGRAM 


10000 SVS Ai : SVS Bi.28 
10010 SVS HI : POKE 53280,6 
10020 SVS £1,103,120,40 
10030 SVS E2,143,80,40.180.90 
10040 SVS Cl,20,30 : S$S Di.90.20 
10050 SYS Dl,40.110 : SVS Di.26.20 _ 
10060 SVS Cl,186,160 : SYS Dl,250.160 
10070 SVS Dl,210.70 : SVS Di.180.160^ _ 
10080 SVS 11.0,68,136.17,34,68,136,17,34 
: SVS 11,1,38,34,65,i28,193,34,20,8 
10090 SVS Ji, i63,6i,65 
10100 SVS Ji,143.41.66 
10110 SVS Ji,40,3i,6 
10120 SVS Ji.216,73,1 
10130 GOTO l6l30 
READV. 



Pattern-filling complex shapes 

Unlike the flood-fill routine, pattern-fill will only work 
with relatively simple shapes. It starts at the point you 
specify and then works vertically downward until it 
reaches a boundary or the bottom of the screen. In a 
complex shape, you may have to use it more than once, 
as the next program shows. It draws a map which is both 
flood-filled and pattern-filled. 


PATTERN-FILLED MAP PROGRAM 


10000 SVS ftl : SVS Bi,ii8 
10010 SVS 03,10060 

10020 SVS Ci;©^ : SVS Dl,319,0 SVS Dl 

7313;i99:SYSDi,0,139 SYS 01,6,0 

10036 SYS Cl,48,0 

10040 FOR N=i t6 12 : READ X,Y 

10050 SVS 01,X,Y : NEXT N 

10060 DATA 54,27,64.56,59,90,64,112.80,1 
28,99,164,108, 172,liO, 170,92,136.128,179 


10070 DATA 128,186,163,199 
10080 SYS Cl,64,56 : S$S 01.228,56 
10090 SYS Cl,80,128 : SYS 01,149,150 
10100 SYS Cl.252,0 „ „ u .. 

10110 FOR N=i TO 22 : READ X,Y 

10120 SYS 01, X, V : NEXT N __ 

10130 DATA 2$2,20,240,36,248,24,256,28,2 
44,50,238.40,225,61,224,96,214,118 
10l40 DAT6 224,140,220,144,208,128,172,1 
36,149,150,160.176,174,180,188,184 
10l50 6ATA 192.170.204,168,200,192,224,1 
88,224,199 

gEADY. 


PATTERN-FILLED MAP 
PROGRAM 


DOES 


How the program works 

The map is filled using both 
types of fill routine. 

Line 10220 produces the 
flood-filling. 

Line 10242 calls the pattern- 
fill routine. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 
Restore 

11 

B Clear-and-color 
Block-color 

13 

C Plot 

15 

D Draw 

17 

G Flood-fill 

27 

H ROM-copy 

Text 

31 

1 Define-character 

33 

J Pattern-fill 

35 













































































































PATTERN-FILLED MAP PROGRAM (CONTD.) 


i8if8 ffl : REftO X, V 

i8f!8 SX?A°hg;U 5 $"!v78. 24 , iss 

X36,188.2-4.19$, 16,184,6 

10210 IvS 11,50,204,204,204,204,204,204, 

10280°SVS 01,100.1 = SYS Gl.140,180 

10230 SVS Jl,66,58,50 : SYS J±,150,114,5 

10240 SVS Jl,214,128,50 : SYS Jl,218,134 
.50 

10260 SVS B2,72.108,C : SVS B2,216,?2,C 
: SVS B2.152,136,C 

0 280 IvS H 2 ,232,72,••}!£« YORK;; 

10290 SVS H2,±68.156 '■HOUSTON* 1 

(Silo i?i 8i:l;ti$:”l88EL£s" 

10320 GOTO 163^0 
READY . 


After each time that the pattern-fill routine moves down 
a line, it fills as far as it can to the left and to the right. 
However, unlike the flood-fill routine, it won't 
“remember” to go back to unfilled areas in complex 
shapes. Instead you need to start the routine again from 
the top of any unfilled areas. It's rather like painting a 
wall: just start from the top of each area you want to 
paint, and go back to any that are missed out. You will 
find that the routine is written so that the pattern will 
match exactly where it meets any part that was filled 
previously. 





NEW YORK 


HOUSTON 




PATTERN-FILL routine 


What the routine does 

The routine fills a closed regular or irregular shape with an 8x8 
pixel RAM text character (this may be a standard Commodore 
character, or one previously created using the define- 
character routine). Although the routine fills with 8x8 charac¬ 
ters, it will fill partial character spaces. The routine should be 
started at the top of any shape to be filled. Complex shapes 
may have to be pattern-filled by calling the routine a number of 
times, breaking the shapes up into simpler areas. 


SYNTAX AND PARAMETERS 

SYS J1,X,Y,C 

X,Y 

Horizontal and vertical coordinates of the point where 
pattern- filling is to begin (ranges 0-319 and 0-199). 

C 

Code number of character used for filling (0-255). 


ROUTINE LISTING 


IF PEEK<51394)=32 THEN 4830 
SVS 03,4840 : FOR C=51392 TO 51608 
READ B : POKE C,B : NEXT C 
Ji=5i394 

DATA 160,0,32,40.192,32.224 
DATA 192,144,6,162,14.76,55 
DATA 164,142.5,198.140.4.198 
DATA 32,40,162,32.536,i9$.176 
DATA 23^,140.3,196,32.40.192 
DATA 162,0,134,252,152,10,38 

DATA 252,10.38,252,10,38.252 
DATA 133,25l,24.165,252,105,16 
DATA 133,252,176,3,198,173,4 
DATA 198,174,5.168,141.192.200 
DATA 142.193,200,35,126.201,240 
DATA 1,96,56,173,4.198,533 
DATA 1.141.4,198,168,173,5 
DATA 168.263,0,141.5.198,170 
DATA 32.524.196,176,56,lS2,172 
DATA 3,i98,52,l58,26l,640,523 

DATA 76.65,201.172.2,192,177 
DATA 25i,46,0,192, 166, 0,17 „ 

DATA 253,146,653,64.163,4.198 
DATA 105,1,141,4,196,166,173 


t.U a , x I , X Ji. , CUV, x-rx , -T, XUW 

173,193,200,141,5,168.172 

3,i68,260,140,3,l68,l62 

0,32,236,192,176,3.76 
260,600.66.140,l5,192,160 
0,140,l5,l52,141.6,195 
142,9,195,32,0,163,173 
0, i62, 160,0., 49,253,96 


Copying and defining a pattern 

The pattern-fill routine will only fill with characters that 
already exist in RAM. To fill with a character other than 
one that can be copied from ROM into RAM by the 
ROM-copy routine, you must define it first. If you 
forget to use the ROM-copy or define-character 
routines, you will find that the pattern-fill routine takes 
whatever is in RAM at the particular character address 
that you have specified. If your pattern-filling just 
produces a pattern of random dots and lines repeated 
over the screen, you have probably forgotten to use the 
routines in block H. 

































































PATTERN-FILLING 2 


Pattern-filling a wall and gate 

The next program uses all the routines so tar to draw 
and pattern-fill a wall and a gate. It uses three characters 
produced by the define-character routine, and then 
colors the result with the block-color routine. 

When you run this program, you will see a new 
technique at work. Sometimes you may want to pattern- 
fill an area but not show the outline or boundary that 
surrounds the pattern. This program shows you one 
way of achieving this effect. It draws one particular 
boundary (the curved top of the gate), pattern-fills the 
shape that it surrounds, and then takes this boundary 
away by drawing it again with the erase routine turned 
on. The gate is pattern-filled without the top boundary 
appearing in the final display. It’s much easier than 
trving to work out a programming routine to draw lines 
that together form an arc. You can use it with any shape 
that has a programmable outline. 


The Commodore has a character set with 256 elements, 
and you can pattern-fill with all the characters that can 
be printed on the screen. This means that a single 
program can have areas filled with different patterns. 
The programs on these two pages show what you can do 
with just three different kinds of pattern-filling. 

Cross-hatching a design 

Many designs produce a 3-D effect by cross-hatching, 
that is, by having areas filled with parallel lines. You can 
use this technique to shade a diagram to give an 
impression of its three-dimensional shape. 

The program below makes a 3-D box. Each type ot 
cross-hatching is produced by a separate character used 
with the pattern-filling routine. The numbers that code 
the three characters are in lines 10120, 10150 and 
10180. To try the program out, you will need routines 
A-D and G-J in memory. 


PATTERN-FILLED BOX PROGRAM 


10000 
10010 
1002O 
10030 
10040 
10050 
10060 
10070 
10080 
1OO90 
10100 
10110 
10120 
10130 
10140 
10150 
1016O 
10170 
1018O 
1O190 
1O200 
10210 
RE AD V 


SYS A1 
SYS Cl 
SYS Di 
SYS Dl 
SYS Cl 
SYS Dl 
SYS Dl 
SYS Dl 
SYS Di 
SYS Di 
SYS Ci 
SYS Hi 
SYS Ii 
SYS Ji 
SYS Ji 
SYS 11 
SYS Ji 
SYS Ji 
SYS 11 
SYS J 
SYS Gi 


. SYS Bi,13: POKE 53280,5 
,0,0 : S$S Di,319,O 
, 3i9,199 : SYS Dl,0,199 


, 0,0 
, 86,136 
, 206.72 


SYS D1,80,72 
- SYS Di,206,136 
,80.i36 : SYS C1,80,72 
,±±£,40 : SYS Di,232,40 
,200,72 : SYS Ci ,232.40 
,232,i04 : SYS Di.206.i36 
,ii2,40 : SYS Di,ii2,72 

,iO,i,2,4.8,i6,32,64,i28 
,ii4,^3,i6 
,ii4,73, i0 

, i2,i28,64,32,±6, 8 , 4, 2, ± 

ill 

i,ii3,4i,i3 
.i04,64 
6210 





■mt-\ 
mat- i 

m m mt « ** mt 

mtmt am I 

m am mt-am 

tm mtmt mtmt m m m m " 
»»» m m m «« m am- 
t m mt mt -mm amm #HC 
m m- mt m mt w* m- amm-am 
t mt mtwt am m am m mam I 
m -mt sow m mt mtt mt mt m* mt 
e mt mtm* mt'-m* mt m&mz m 
m tm mt mt m -«« mst mt mt 
t m mt mt mat mt mt mt- mt mt * 

I mm* m m- mt mt mt mt -mt mt 
i mt mat- mt mtmt- mt mt mm mt m 
mmtmamt-mtmtmtmtrnt mt 
i mt mt mt mt mt tm mt mtmtm 
mt am mt mt mt mt mt mt m *»] 


If 


SM 






lilaillS 






I|piiii!|i!lii||iiii li Hli ! p jilj ll 

: 

: 

; 










































































































































WALL AND GATE 
PROGRAM 

00 40 

How the program works 

The program uses three 
specially defined characters to 
produce a pattern-filled 
display. The vertical bars of 
the gate are not drawn but 
pattern-filled within a 
boundary which is later 
removed. 

Lines 10010-10040 define 
three characters (the bars of 
the gates the bricks in the wall 
and the pattern on the path). 
Line 10050 READs the 
DATA in lines 15000-16070. 
This controls all the drawing, 
filling and coloring. 

Line 10120 turns on the erase 
routine so that the arc at the 
top of the gate is erased after 


the bars have been created by 
pattern-filling in line 10200. 
Line 10230 turns the erase 
routine off again. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

Restore 


B Clear-and-color 

13 

Block-color 


C Plot 

15 

D Draw 

17 

E Arc 

21 

F Erase 

25 

G Flood-fill 

27 

H ROM-copy 

31 

1 Define-character 

33 

J Pattern-fill 

35 
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The program uses two sets of DATA. To ensure that 
READing always begins from the correct point, the 
restore routine is used twice (lines 10050 and 10280) to 
reset the DATA pointer. 


WALL AND GATE PROGRAM 


tm i?i 

1063O 9 SVS 11.1,0.251.251,251,0,191,191,1 
10040 SVS 11,2,37,37,164,160,136,8,41,33 
10050 f = 0 : SVS 03,15000 
10070 IF*X=-i V THEN F=V : GOTO 10060 

i« if HI fflEB i$i 2 8i,x,v 

10100 IF F=0 THEN SVS Cl.X.V 
10110 GOTO 10060 

10130 Ivl E^igO.160,136,242,298 

ivi c A:lhHh:2 sw% 01 ' 223 ' 11 ^ 

10160 SVS <11*40*41,1 
10170 SYS 11,280.41.1 
10180 SVS Jl,88,33,1 


10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

15000 

15010 

15020 

15030 

15040 

15050 

16000 


190-16000 

SVS Ji,232,33,1 

SVS ^4 ' f I OC 9.9 OQQ 

i?i Sf:; lv5‘S.:si!,..a 

Ivl f 1 ’ 96 104 : SVS 01,223,104 

|?| 8i;ii;iS4 : nh^biAUI™ 

l?l FOR K = 1 TO 8 

READ L*,UX,LV,UV,C 
GOSUB 20000 : NEXT K 

GOTO 10310 __ ijq q«? qo 

DATA 0.119,-1,1ll 5# i A n'n 5 io fc 

DATA 86,32.80,119,-1,0.0,40 
DATA -1,1*80,40,-1,0.319,40 
DATA -1,1^239,40,-l A 0,319^1ia 
DATA -1,1, ?24, ll9, 224.3c., <-39 , o«- 
DATA 239.119,-1 ,? a “ 2,0 
DATA 0,3i2,0,32,102 


16010 

16020 

16030 

16040 

18050 

16060 

16070 

20000 

20010 

20020 

20030 

READY 


16010- 

3 DATA 0.312,112.192,213 
3 DATA 0,72.40.112,151 
3 DATA 80,86.32.112.151 
3 DATA 224,2^2,S2,ii2,151 

] 96?6||:6 4 ?6H% i5 

) FOR V=LV TO UV STEP 8 
3 NEXT B2 '^'HtXT X : RETURN 

































































































































































































































































































































BLOCK-COPYING 1 


There are many times when it is useful to be able to copy 
some object that you have drawn on the screen without 
having to repeat the code to program it. The listing in 
block K on the opposite page contains a block-copy 
routine which will copy one 8x8 block, taking it from a 
specified position on the screen and displaying the copy 
in another position. The routine doesn’t simply redraw 
whatever is to be copied—instead it makes a direct copy 
of it from the original in memory, a process which is 
much faster. Although the routine only copies one block 
at a time, it’s an easy matter to put it inside a 
FOR ... NEXT loop so that rectangular blocks of any 
size can be copied from one position to another. 

When you use this routine, the originating block is left 
unchanged (unless of course you copy back onto the 
space it occupies). Furthermore, the routine only copies 
the part of the memory that holds the high-resolution 
information, and does not copy the color memory. This 


means that the object simply takes on whatever color 
combination has been defined in the area to which it is to 
be copied. However, the block-color routine, which also 
deals with 8x8 blocks, can be used in combination with 
the block-copy routine to set the colors of all the copies 
made. 

If you compare the Planet Copier program with the 
Planets program on page 15 . you can see that the block- 
copy routine is simply looped to repeat the design. 

Copying a design 

Each of the programs on these two pages produces a 
shape and then copies it over the screen. It’s a simple 
way of using the block-copy routine to produce a 
pattern. The first program draws and fills a diamond, 
and copies it. The second produces a planet by plot¬ 
shading, using the method shown on pages 14-15, and 
then copies this design onto other parts of the screen. 



10000 

10010 

10020 

10636 

10040 

10050 

10060 

10070 

20010 

21000 

21010 

21020 

21030 

21040 

21050 

READY 


SVS A1 : SVS Bl,16 : POKE 53280,0 
SYS Cl,20,0 

SYS Dl,40,20 - SYS Di,20,40 : SYS 
10 : SY6 Di.20,0 : SYS 61,20,20 
LX=0 : LY=6 

FOR NX=40 TO 280 STEP 40 

FOR NV=40 TO 160 STEP 40 

GOSUB 21000 : NEXT NY : NEXT NX 

GOTO 10070 

Xi = INT<SQR<R*R-Y*Y> > 

K=INT<RND<0>*i5+i>*16 

FOR MX=0 TO 32 STEP 8 

sys ki7lx+mx?ly+mv, NX+MX,NY+MV 

NEXT B hfr H - + NEfcT V MX V 1 K RETURN 


DIAMOND COPIER PROGRAM 
















To try either program, first load the routines (the 
Diamond Copier needs routine blocks A-D and G) and 
then add block K. Next add the listings. 


PLANET COPIER PROGRAM 


10000 SVS Ai : SVS Bi, 16 POKE 53280,0 
10010 R=15 : XC = I6 VC=16 
10020 GOSUB 20000 

10040 F0R°NX=4Q TO 280 STEP 40 

10060 G0SUB V 2JL000° : 1 NExf T NV ? NEXT NX 
10070 GOTO 10070 
20000 FOR Y=-R TO R 
20010 Xi=INT<SQR(R*R-Y*Y>> 

20020 FOR X = -Xi TO XI 

20030 N = INT<RND<i>*Xi*2)+l u ^ „ iio 

20040 IF N<X±+X THEN SYS Ci,X+XC,Y+YC 

20050 NEXT X : NEXT Y : RETURN 

21000 K=INT(RND<0>*i5+±>*i6 

21010 FOR MX = 0 TO 24 STEP 8 

21020 FOR MV = 0 TO 24 STEP 8 

21030 SYS Ki,LX + MX,LV+MY,NX+MX,NV+MY 

21040 SYS B2 ,NX+MX.NY + MY,K 

21050 NEXT M$ : NE*T MX : RETURN 

READY. 

■ 



BLOCK-COPY routine 


What the routine does 

The routine makes a copy of whatever is displayed in a 
specified 8x8 pixel block. The copy can then be displayed in any 
other 8x8 block on the screen. The routine can be used within a 
loop like the block-color routine to copy rectangles made up of 
a number of 8x8 pixel blocks. Note that colors are not copied: a 
copy has whatever colors are already set in its destination 
block. 


SYNTAX AND PARAMETERS 

SYS Kl.X.Y.A.B 

X,Y 

Horizontal and vertical coordinates of any point v/ithin 
the block to be copied (ranges 0-319 and 0-199). 

A.B 

Horizontal and vertical coordinates of any point within 
the destination block (ranges 0-319 and 0-199). 


ROUTINE LISTING 


IF PEEK< 
SYS A3,5 
READ B : 
Ki=5±6±6 
DATA 32, 
DATA 16$ 
DATA 160 
DATA 16, 
DATA 224 
DATA 55, 
DATA 19$ 
DATA 176 
DATA 192 


51616)=32 THEN 5230 
240 : FOR C=51616 TO 51678 
POKE C,B : NEXT C 

184,201.165.253, 133,251 
,254,13$,25$,32,184.201 
, 7.it?,2$I,145,£53,i36 
249.96,32, 40.192,32 
,192,144.$.162.14,76 
i.6 4, i.42 . 6.192, i40,8 
,32,40,192-32,236,192 
,23t,l$2,4i,248,142,13 
,141,12,192,76,6,19$ 




k. 

\ % 
ft 




You might notice with these programs that if you break 
them with the RUN/STOP key, and then type RUN 
followed by pressing RETURN, sometimes nothing 
happens. Instead, you just get an error message in high- 
resolution blocks. The reason for this is that the line you 
type RUN on probably has some of the display further 
along it. The computer treats this as part of your 
instruction, fails to understand it, and comes to a halt. 
To re-run the program, press the RUN/STOP and 
RESTORE keys together first. 


PLANET COPIER 
PROGRAM 

OO-HO 

How the program works 

First a planet is plotted in the 
top-left corner. The block-copy 
routine is then used to display 
copies of the planet over the 
screen, and these are colored 
by the block-color routine. 
Lines 10100-10200 plot the 
planet to be copied. 

Lines 10030-10700 copy the 
planet, using the block-copy 
routine inside a FOR...NEXT 
loop, and then add the colors 
each time. 


Lines 20000-20050 form the 
planet-plotting subroutine. 
Lines 21000-21050 form the 
copying and coloring 
subroutine. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

Block-color 


C Plot 

15 

K Block-copy 

39 








































BLOCK-COPYING 2 


As well as using the block-copy routine to make 
interesting patterns, you can use it to alter displays. The 
program on these two pages produces a simulation ol a 
sliding numbers game. It’s a simple example of the game 
using a 3x3 grid, but once you have seen how the 
program works, you can make it more complex. 

In the game, you move the numbers around until they 
are in order. To make the computer simulate this, you 
could program it to redraw the display after a move is 
made, showing the numbers in their new positions. 
However, if you use the block-copy routine, a lot ot 
programming is avoided. 1 he listing is still quite 
complex because the computer has to hold a lot ot 
information in arrays. But without block-copying, it 
would be much more difficult. 

The parts of the puzzle 

The Puzzle program starts by drawing and filling the 
puzzle’s border and then drawing just one puzzle piece. 
This is all carried out by lines 10000-10090 in the screen 
below, although you will need to key in the whole 
program before this is carried out. 


PUZZLE PROGRAM 


llili 

m 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
2>*48 
10190 
10200 


SVS Ai : SVS B1.100 ^ 

iyi Ci,i04?4l ? ivs'Dl.104,151 


SVS Cl,104, 48 : 

SYS 01^207,151 : SYS D1,207#48 
SYS 01,104,48 : SYS 01,119,63 
SYS 01,119,136 : SYS 01.19^,136 
SYS Di;i92;63 : SYS DI,ii?,§3 
SYS 61,112,56 : SYS 01,121,65 
SYS 01,121,86 : SYS 01,142,86 
SYS 01,142,65 : SYS 01,121,85 

EfrlLxkV? fcsvltf!” 

EiS:8S« ; ES|o| > 5oo P o R,c ftf 

?<8:“>:iS! ; flMIitU fiHiA 

PCI,3)=8196 : P<9,3 >=i§B4 

'nil !i ! ^3l 5 rwiiWaAK»«4> 


r VIN Vr —i 

P<C,0>=X : f 

P<C,3>=H : ( 
P<9,0)=1S8 : 
P<9,1)=112 ■ 
P(1,3>=8196 
FOR C=i TO t 


You won’t see the block-copy routine in the first part of 
the program, but it is there, in the form of subroutines. 
Every time the subroutine at line 20000 is called, the 
block-copy routine copies a 3x3 character block from 
coordinates LX,LY to X,Y. Lines 10100-10160 use this 
subroutine to copy the top-left puzzle piece to the 
coordinates READ by line 10110. This section of the 
program also sets up the nine puzzle piece positions. 

When you have keyed in the machine-code routines 
and the complete Puzzle program, pressing RETURN 
after the puzzle has first appeared will rearrange the the 
puzzle pieces at random. You can then use the cursor 
keys to move the pieces back into the right order. 


PUZZLE PROGRAM CONTD. 


LIST 10210-15030 


10210 M=INT<16tH+0.2> : R=M»15 : IF R>32 

10220 H IF <P<K?3) 3 AHD R>=0 THEN 10240 
10230 GOSUB 21000 

folio GET T aS : IF THEN 10250 

10260 ft=ASCCAS> : R=-15*<A=145>-240*<A=2 
9>-384O*<A=±7>+4096*<A=I57> 

1027O IF R=0 THEN 10250 ^ 

1028O N=-±*(A=29>-2*KA=±7>-3*<A=±57> 

10290 IF <P<K,3>AND R>=0 THEN 10250 

10300 GOSUB 21000 

10310 FOR C=1 TO 9 

10320 IF PCC,2><>C THEN 10250 

10330 NEXT C 

10340 GOTO 10340 

15800 DATA 144,64,12309,168,64,38 
15010 DATA 120,88,20743.144.88,25160 
15020 DATA 168,88.857,120,112,-31744 
15030 DATA 144,112,-27280 

READY. 


LIST 20O00- 


20000 
2OO10 
2OO20 
2OO30 
< LV + MY 
20040 
21O00 
61 < N + l 
21010 
21020 
2103O 
21040 
21050 
2106O 
22000 
22010 
22020 
22030 
READY . 


FOR MX=0 TO 16 STEP 8 

20000 

! m p<s?Ij5tmp 

READK R - T FOR X=0 TO 16 STEP 8 


PUZZLE PROGRAM 

nn.ic 

UUIJ 

How the program works 

The block-copy routine is used 
in a subroutine to rearrange 
the pieces of the puzzle. The 
computer will produce a 
random arrangement which 
can then be sorted into 
sequence with the cursor keys. 
Lines 10000-10160 produce 
the initial puzzle by calling the 
block-copy routine which is 
contained in a subroutine. 
Lines 10190-10240 scan the 
keyboard and then rearrange 
the puzzle at random. 

Lines 10250-10300 move the 
pieces in reponse to the 


player's instructions. 

Lines 10310-10340 test to sec 
if the solution has been 
reached. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

Restore 


B Clear-and-color 

13 

Block-color 


C Plot 

15 

D Draw 

17 

Flood-fill 

27 

H ROM-copy 

31 

Text 


K Block-copy 

39 












































































































































































































































































































































































































SCREEN-SCROLLING 


The final facility provided by the machine-code 
graphics routines is screen scrolling. Scrolling is the 
movement of the whole screen display, usually 
horizontally or vertically. Left and right scroll are 
particularly useful in games and other programs where 
you want a moving background. 

You could use the block-copy routine to produce 
scrolling, but if you try to do this, you will find that it’s 
unacceptably slow. Although the block-copy routine 
itself works quite rapidly, the Commodore BASIC 
ROM takes time to interpret and carry out the 
FOR ... NEXT loops needed to block-copy the 
contents of the entire screen. However, the scroll 
routine in block L opposite completely eliminates the 
need for any BASIC. It carries out horizontal scrolling 
at high speed by replacing the BASIC FOR ... NEXT 
statements with machine code. 

Scrolling and wrap-around 

With the screen-scroll routine’s machine code in 
memory, you can scroll a display with a command like 
this: 

SYS L1,D,C 

where D is the direction of the scroll (l=left and 
0=right) and C is the code of the color that will be left 
behind in the newly-created strip down the side of the 
screen when the scroll is carried out. Since you would 
not often want to use the color combination 0 (black 
foreground and black background) this has been 
pressed into service in another way. When color 
combination 0 is used, the character positions that are 
vacated by the scroll are filled by the characters that 
have just been pushed off the other end of the screen. 
This makes the screen “wrap around”, a facility that is 
useful in animating backgrounds to give more complex 
displays. 

How to make a display scroll 

If you have a program which finishes with a line like: 

10400 GOTO 10400 

all you have to do to make it scroll is to change the final 
line and add one more. To wrap-around the display, you 
would need the following lines: 

10400 SYS LI,1,0 
10410 GOTO 10400 

This repeats the scroll routine, moving the display to the 
left and wrapping it around. 

To make the program move to the right, but produce 
a white screen instead of wrapping around, you would 
need to add: 


10400 SYS LI,0,17 
10410 GOTO 10400 

All the effects so far use GOTO to produce a loop 
which endlessly scrolls the display. You can however 
scroll a display a set distance to the right or left by using a 
FOR ... NEXT loop. You can even link together a 
series of these loops so that a display moves from side to 
side by a specified or random amount. 

Different effects with the scroll routine 

The displays on these two pages have been produced by 
taking two programs from earlier in this book, and then 
adding the scroll routine. The Wall and Gate program 
shows the wrap-around scroll which repeats the original 
design. The Line Landscape displays show both wrap¬ 
around and scrolling to reveal a color—in this case pur¬ 
ple, the same color as the original two “buildings”. 






































































SCREEN-SCROLL routine 


What the routine does 

The routine scrolls the contents of the entire screen by one 
column of 8x8 pixel blocks either to the right or left. If the 
routine is used once it will move the display by one column 
only. However it can be used in an endless loop for continuous 
scrolling, or it can be used in a closed loop to move the display a 
specified amount to the left or the right. The routine will either 
color the area vacated by the scroll (the color can be 
specified), or it will allow “wrap-around" of the display. 

To make a display scroll off the screen, use SYS LI,followed by 
a direction and a color code. The display will then scroll one 
8-pixel coumn at a time to the left or right, leaving a blank 
colored area. This colored area is controlled by a color code. To 
make a display scroll left or right but wrap-around the screen, 
use SYS LI, followed by a direction (coded by 0 or 1) and then 
the color code 0. The scroll routine can be used to move a 
display from side to side behind stationary sprites, and if it is 
used with the RND function, the screen can be made to scroll 


unpredictably. It can also be used to gradually remove one 
display from the screen to make way for another instead of 
simply clearing the screen with the clear-and-color routine. 

The routine uses standard Commodore color combination 
codes. For details, see the chart on page 63. 


SYNTAX AND PARAMETERS 

SYS Ll.D.C 

D 

Direction of scroll (0=right, lHeft). 

C 

Color of vacated area (0=wrap around, 1-255 — 
standard color combinations). 


ROUTINE LISTING 


IF PEEK<5i683>=32 THEN 5430 

SVS 03,5440 : FOR C=5i6?9 TO 52168 

READ B : POKE C,B : NEXT C 

I 1 — S I PQQ 

DATAO.O,0,0.0,0,0 
DATA 0,0,0,32,40.192,192 
DATA O,268,3,t6.2l3,202,169 
DATA 0.141,l6.122.141.it,192 ^ 

DATA 32,40,192,146,222,261.192 
DATA 0,240,16,140,224,201,160 



7.169.0 
16.256. 
192,146 
140.27, 

16 . 192 , 

192.32. 
251,162 

203 . 32 , 

251.141 

14 . 192 , 

192.141 
141,13, 

192.141 
9.122,1 
123,56, 
251,166 

32.191, 
251,106 
133.252 

14 . 192 , 


,153.225,201,136 
t6,66.202,146,8 
,26,162,140.9.192 
192,140.13,192,173 
141.12,192,141.28 
0.163,169.225.133 
,201.133.252,62,191 
62.163.160,0,177 
.224.26 i,i69,38,141 
173,16,162,141,12 

,28,192,173,17.192 

192.169.8.141.6 

,26.192.169.0,141 

41.27.162.32.6 
166,263.263.6.133 
,254.236.0,136,252 
203,24, 165,253,133 
,8.133,253,165,254 
. 165.0.133,254, 172 
136,146,14,192,16 


227,169,225.133.253.169,201 
133,254.32,191,203,62,82 
193,56,165,251,23 3,1,133 
253,166,252,236,0,136,254 

160,0,1^7,261,145.253,200 

192,36,206,24t,176,224.201 
145,256.24.173,16,192,i05 
8,141,l6,i62,26l, 200,240 
6,172.226,201,76,1,262 
96,166,0,141,16,192,141 

17.192.32,40.192,140,223 

201,192,0,246,16,140.224 

201,160,7.169,0,153,225 


140,13,192,32,6,196,169 _ 
225,136,251,169,201,133,252 


32.191, 
0.177.2 

36.141, 

26.192, 
192,14i 
173,17, 

48.141. : 
9,192.6 
253,l65 
105,0,1 

56,165, 

136.256 
0,i63,2 
140,14. 

133.256 
191,203 
251,105 
105,0,1 

251.145 
173.224 

16.192, 

20l.206 

76.227, 

256.146 


203,32,8 

51.141.2 

14.192.1 

141.27.1 
,12,192, 
192,141. 
8,l62,l6 

2.0,163, 

.6,133,2 

63.252.3 


2,193,160 

24.201.169 
69,0,141 
92.1^3,16 
141.28,192 

13.192.169 
9,1,14i 
24, 165 
51,165,254 
2,191,203 


253,133,251,233.8 
,166,254,136.252,233 
64.1^2,14.192.136 
192,16,22t.166,225 
,166,26l,163,264,32 
,32.62,163,24,166 
.1,133,253,166,252 
63,254. 160,38, i7?_ 

tliitfsW.TsiS?,, 
















































GRAPHICS EDITOR 1 


So far, all the graphics you have produced have been in 
the form of specific programs to produce specific 
pictures. The program on the next six pages lets you 
create pictures directly on the keyboard. It gives you 
instant access to all the routines so far, and it also 
provides two graphics cursors, an optional color grid 
and a facility for saving your displays on tape or disk. 

How to key in the graphics editor 

You can build up the graphics editor in easy stages so 
that each part can be tested as you key it in. The 
program uses graphics routines in all the blocks from 
A-L, so you must have these in memory before you start 
keying in. 

Although the editor is written in six consecutive parts, 
do not try to assemble it using the merge routine. If you 
do, it will not work, because its lines are not always built 
up in numerical order. 

Producing the cursors 

Part 1 of the editor listing generates two cursors. The 
large cross is called the main cursor, and this is 
controlled by the usual cursor keys, moving one pixel at 
a time. A second cursor can also be made to appear by 
pressing the M key. This cursor cannot be moved by the 
cursor keys. 

In general, to use the graphics editor, you need to 
mark one or sometimes two points with the cursors. For 
operations that need two points to be marked, the 
second or marker cursor is used. If you move’the main 
cursor after pressing the M key, the marker cursor will 
stay in the main cursor’s original position. Pressing M a 
second time unites the cursors again. 

Type in part 1 of the editor and check that the cursors 
appear before continuing. 


GRAPHICS EDITOR PART 1 (CONTD.) 


LIST 10230- 


10230 

10240 

10250 

10260 

10270 

20000 

20010 

20020 

20030 

20040 

20050 

20100 

20110 

20120 

20130 

20140 

20150 

READY 


GOSUB 20000 : GOTO 10050 

«V=CY 

GOSUB 20100 : GOTO 10050 
GOTO 10270 

t?| tI;cX-20,CV 

SYS D±;CX+20,CY 
SYS Ci;CX,CV-20 
SYS Dl#CX,CV + 20 
SYS F±;0 : RETURN 

Ivl C±'MX-7,MY-7 
SYS D±,MX+?,MY*7 
SYS Cl,MX*7,MY-7 
SYS Dl,MX-7.hY+7 
SYS F±,0 : RETURN 


GRAPHICS EDITOR PART 1 


10020 

18838 

18818 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

{ 0200 

m ° 0 

gEADV. 


K0L=16 : D=0 : POKE 650,128 
SYS A1 : SYS Bl,16 : SY$ F1.0 
CX = 160 : CV=100 : HX=0 : t1Y=220 
GOSUB 20000 : GOSUB 20100 

IF T AS="" THEM D=0 : GOTO 10050 
KE=ftSC<A$> : D=D+i 
IF KE<>29 THEN 10120 
GOSUB 20000 : CX=CX*D 
IF CX>319 THEM CX=3i9-D=0 
GOSUB 20000 : GOTO 10050 
IF KEO157 THEM 10160 
GOSUB 20000 : CX=CX-D „ 

IF CX<0 THEM CX=0 =0=0 
GOSUB 20000 : GOTO 10050 
IF KE0145 THEM 10200 
GOSUB 20000 : CY=CY-D 
IF CYCO THEM CY=0 : 0=0 

GOSUB 20000 : GOTO 10050 

IF KE017 THEN D = 0 : GOTO 10240 

GOSUB 20000 : CY=CV*D ^ A 
IF CV>199 THEN CV=199 s D=0 


The editor commands 

Part 2 of the editor provides three graphics facilities — 
plotting, drawing and flood-filling. 

To plot a point, move the main cursor to the required 
position, press D and the point will be plotted. The 
marker cursor will be updated so that it is in the same 
position as the main cursor. 

Drawing lines is equally easy. The program draws a 
line from the marker cursor to the main cursor when 
you press L. You can draw lines from the existing 
marker cursor position or from a new one, specified by 
pressing M. After you have pressed L, the line appears, 
and the marker cursor is united with the main cursor. 
This enables you to draw a long sequence of lines 
quickly. 

Flood-filling areas is simple. Just move the main 
cursor to the place where you want the flood-fill to start 
















45 


and press F. 

If you add the part 2 listing to part 1, you will be able 
to test out these three facilities. If your combined parts 1 
and 2 seem to run properly, make a copy on tape or disk 
so that if you introduce a bug later, you don’t run the 
risk of losing all your work so far. If your program 
doesn’t work, check that you have all the machine-code 
routines in memory. Press BREAK and then SYS A2 to 
identify problem lines when running. 


GRAPHICS EDITOR PART 2 



DISPLAY USING PARTS 1 AND 2 



The graphics editor program makes coloring very easy. 
But before you turn over and find out how to do this, try 
producing some designs in black and white first. It’s 
always easiest to draw first and color later. 

On page 49 you will find a list of keys used by the 
editor. If you press an unused key when the final 
program is running, it will ignore it. Until then, press 
only the keys which the program uses, or the editor may 
halt and your display will be lost. 



















































GRAPHICS EDITOR 2 


You can add a coloring facility to your graphics editor by 
keying in part 3 of the program. This allows you to set up 
colors for all or part of the screen. It works in two stages. 
First you decide what color combination you want to 
use, and then you decide which area of the screen you 
want to appear in these colors. 

To select a color combination, first press I followed by 
a standard Commodore color control code from 0-255 
(see the chart on page 63) and then by RETURN. Don’t 
wait for a prompt after you press I as the program does 
not produce one. Now position the marker cursor at the 
top-left of the area you want to color, and move the main 
cursor to the bottom right. When you press C, the area 
will be colored by the block-color routine. Remember 
that coloring is a two-stage process — first color 
selection, then positioning. 

Because color is dealt with in 8x8 pixel blocks, you 
will probably find that the colored area is slightly larger 
than you specified because the colors are set to the next 
boundary up. If you take a black and white design like 
the one shown on the previous page, it’s easy to start 
adding some colors to it. 


Using the on-screen grid 

When you use the coloring facility, you may find that it’s 
difficult to know exactly where the boundaries of the 
8x8 pixel blocks are. You can overcome this problem 
with the part 4 of the editor. After typing it in, run the 
program, and press the G key. You’ll find that a 
complete color grid is overprinted on the screen. 
Pressing G a second time makes the grid vanish, leaving 
your design exactly as it was before. 

When you use this facility, it is important that you 
don’t draw any objects or fill any areas while the grid is 
on the screen. 


10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 

. _ iSo 

10630 


GRAPHICS EDITOR PART 3 


IF KE073 THEN 10510 

GET°A$ : IF A$= ,,M THEN 10440 

A=ASC<A$> : IF A = 13 THEN 10490 

IF A<48 THEN 10440 

IF A>5 7 THEN 10440 

TK=TK*10+A-48 : GOTO 10440 

IF TK<0 OR TK >255 THEN 10050 

K0L=TK : GOTO 10050 

IF KE067 THEN 10630 

IF MX>CX THEN 10050 

IF MY>CY THEN 10050 

LX=MX AND 504 : LV=MY AND 248 

UX=CX AND 504 : UY=CY AND 248 

FOR X=LX TO UX STEP 8 

FOR V=LV TO UY STEP 8 

SYS B2,X,Y.KOL 

NEXT Y : N£XT X 

GOSUB 20100 : MX=CX 

MY=CY : GOSUB 20100 

GOTO 10050 

GOTO 10830 


READY. 


GRAPHICS EDITOR PART 4 


10630 

10640 

10650 

10660 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

10840 

READY 


IF KE071 THEN 10720 
GOSUB 20000 : GOSUB 20100 
SYS FI 1 

FOR X = 6 TO 312 STEP 8 
SYS Ci,X,0 : SYS Di,X.199 
NEXT X : FOR Y = 8 TO 192 STEP 8 
SYS C1,0,V : SYS D1 A 319,Y 
NEXT Y : GOSUB 2G1O0 
GOSUB 20000 : GOTO 10050 
IFKEO80 THEN 10840 

GET°AS : IF AS^"* THEN 10740 
A = ASC<AS> : IF A = 13 THEN 10800 

IF A=8i THEN 10050 
IF A<48 OR A>57 THEN 10740 
TP=TP*lQ+A-48 : GOTO 10740^ 

IF TP<0 OR TP>255 THEN 10050 
GOSUB 20000 : GOSUB 20100 
SYS J1,CX.CV.TP 
MX = CX : = : GOSUB 20100 

GOSUB 20000 : GOTO 10050 

GOTO 10840 









































































































































































The next two displays show how the grid looks when in 
use. After the colors have been applied, the grid is 
removed and the design left intact. 



GRIDIN USE 




Pattern-filling, circles and text 

Part 4 of the editor provides a pattern-filling facility. To 
fill an area with a pattern, position the cursor at the top 
of the area, and then press the P key. Then enter a 
character number from 0-255 and press RETURN. To 
fill with a defined character, use the ROM-copy and 
define-character routines in the direct mode after 
stopping the program with the RUN/STOP and 
RESTORE keys when the cursors appear. Then simply 
re-run the program. 

Part 5 of the editor allows you to draw circles and 
print text. To draw a circle, move the marker cursor to 
the center of the circle. The main cursor is then used to 
mark any position on the circumference. Press O, and 
the circle appears. To write text on the screen, move the 
main cursor to the start position, press T and then begin 
writing. If you make a mistake, you can use the INST/ 
DEL key to erase it. Press RETURN when you get to 
the end of a line, or when you have finished. 


GRAPHICS EDITOR PART 5 


10840 IF KE<>79 THEN 10900 
10850 X = ABS < MX-CX) : Y=ABS<MY-CY> 

10860 R=INT<SQR<X*X+Y*Y>) 

10870 GOSUB 20000 : GOSUB 20100 
10880 SYS Ei.HX.MV,R: GOSUB 20100 
10890 GOSUB 20000 : GOTO 10050 

10900 IF KE084 THEN 11050 
10910 GOSUB 20000 : GOSUB 20100 

10920 T = 0 : MX = CX : SYS Hi 
10930 GET AS : IF A$="“ THEN 10930 
10940 IF ASOCHRS < 20) THEN 10980 
10950 IF T=0 THEN 10930 
10960 CX=CX-8 : SYS H2,CX,CY," ” 
10970 T=T-1 : GOTO 10930 

10980 IF ASOCHRS(13> THEN 11020 
10990 IF CY+8C200 THEN CY=CY+8 ^ 
11000 MV=CV : CX=HX : GOSUB 20100 
11010 GOSUB 20000 : GOTO 10050 

11020 SYS H2,CX,CY,A$ „ , 

11030 IF CX<5i2 THtN CX=CX+8 : T=T+i 
11040 GOTO 10930 
11050 GOTO 11050 
READY. 




























































































































































GRAPHICS EDITOR 3 


By this stage, you have probably produced some designs 
which really needed some tidying up, but so far you 
haven’t been able to erase anything, except by 
overprinting with something else. You can use the text 
facility to erase anything that you have drawn. To do 
this, move the cursors to the top left of the area you want 
to erase. Press T to switch to text and then press the 
space bar. This will erase one 8x8 square at a time. 

Alternatively, you can block-color any area with 
black on black. However, you should remember that 
this won’t erase any designs, but will just hide them. 
Changing the colors again will make the design visible 
once more. 

How to store and retrieve your pictures 


Having drawn a picture, you can make the editor save it 
on tape or disk. Part 6 of the program adds a short 
display section at the beginning of the program which 



asks you for some details. Your displays will be stored as 
files, each with a filename. The computer needs to know 
three things — the kind of storage system you are using, 
the name of the “LOAD” file (the one to be taken from 
storage and put on the screen) and the name of the 
“SAVE” file (the display to be sent to storage, in other 
words the one you are about to create). 

After you have keyed in part 6 of the listing, your 
graphics editor is complete. You will find that the 
program now starts by asking three questions. You must 
answer these before the program will continue: 


1/2? 
LOAD ? 
SAVE ? 


The first means “tape or disk storage?”. Key in 1 for 
tape, 2 for disk. The second question asks which file you 
want the program to LOAD, and the third which file you 
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want to SAVE. You don’t have to LOAD or SAVE 
anything, but in case you want do, the program needs to 
know the filenames before it can continue. 

When you have answered the questions and created a 
display, pressing the W key will make the computer 
store it. Pressing the R key will make the computer 
retrieve the LOAD file and show it on the screen. You do 
not need to press RETURN for either. Storage and 
retrival take a number of minutes as there is a lot of 
information involved, so don’t be impatient if initially 
nothing seems to happen. 

Once either operation is complete, the program 
continues to run from where it left off. 

Choosing filenames 

If you are using disks, it’s important to remember that 
once you have decided on two filenames, you can’t 
change them except by starting the program again. So if 
you call the current SAVE file “DISPLAY3”, for 
example, and you already have a DISPLAY3 on disk, 
you won’t be able to SAVE your current display. 


GRAPHICS EDITOR CONTROL KEYS 

The Graphics Editor uses the keys listed below. When the program is 
complete, any other letter keys will be ignored. Color changes set by 
key I are only visible when put into effect with key C. 


Key 

Function 

C 

Block-color 

D 

Plot point 

F 

Flood-fill 

G 

Print/erase color grid 

I 

Set color combination (enter color code and follow with 
RETURN) 

L 

Draw line 

M 

Position marker cursor 

0 

Draw circle 

p 

Pattern-fill (follow with character number) 

R 

LOAD stored display 

W SAVE current display 















































































TURTLE GRAPHICS 


Suppose you were asked to write a program that would 
draw six squares, each rotated at an angle of 60 degrees 
to the next. How would you go about it? You could either 
draw out a design on a high-resolution grid and read off 
the coordinates needed, or, if you were mathematically- 
minded, you could write a program that calculated the 
coordinates itself. However, either method would take 
quite a time. 

Shape programs in BASIC are often rather 
cumbersome. However, LOGO, another computer 
language developed in the 1970s, tackles the task of 
drawing shapes far more effectively. The part of the 
LOGO language that has become of greatest interest to 
micro owners concerns the “turtle” — an imaginary 
animal that produces complex shapes by following easy- 
to-use instructions. With the help of the routines in 
block M on the opposite page, you can generate some 
fascinating turtle graphics on your Commodore, using 
not LOGO but BASIC and machine code. 

How turtle graphics work 

With turtle graphics, the commands that control 
movement are like the ones you would use in giving 
directions. Here for example is a sequence of turtle 
instructions written in a BASIC framework: 

FOR N=1 TO 4 
FORWARD 50 
RIGHT 90 
NEXT N 

This would move the turtle around a square with sides of 
length 50 units. FORWARD makes the turtle move in 
the direction it is facing for the specified distance — in 
this case 50 units. RIGHT makes it turn right, in this 
case making an angle of 90 degrees. Because this is 
repeated four times the turtle traces out a square-shaped 
path. 

The orientation of any shape the turtle produces 
depends on its initial direction. So if you start it pointing 
vertically upward and then make it draw a square and 
finally turn through 60 degrees, you can simply repeat 
this set of instructions to produce a nest of squares. 
Programming shapes this way is easy. 

Turtle routines for the Commodore 

How can you make your Commodore understand an 
instruction like FORWARD or RIGHT? The answer, as 
you can see in the following program, is to call a BASIC 
subroutine instead, one which does exactly the same 
thing as the turtle command. Block M contains eight 
separate turtle routines, each written in ordinary 
BASIC, and each of which in turn calls one or more of 
the machine-code graphics routines. 


NEST OF SQUARES WITH TURTLE GRAPHICS 


10000 SYS Ai : SVS B1.I03 

1O01O GOSUB 20000 : POKE 53280,6 

10020 FOR C=1 TO 6 

10030 D = 20 : GOSUB 24000 

10040 A=60 : GOSUB 23000 

10050 FOR K=1 TO 4 

10060 D=50 : GOSUB 24000 

10070 A=90 : GOSUB 23000 

10080 NEXT K 

10090 NEXT C : GOSUB 27000 
10100 GOTO 10100 



What the routines do 

In block M, the first turtle routine, starting at line 
20000, sets the turtle’s initial position at the center of 
the screen, the initial direction vertically upward, and 
selects a “pen down” option, so that drawing will begin 
as soon as the turtle is moved. All the angles in these 
routines are measured in degrees clockwise from the 
positive horizontal axis, and all the distances are 
measured in pixels. 

The second turtle routine, starting at line 21000, 
draws the shape that represents the turtle itself. The 
erase routine from block F is used so that it can both 
draw and erase the turtle. 

The third routine, at line 22000, turns the turtle left. 
To use it, you set the variable A to the angle through 
which you want to turn and then call the routine with 
GOSUB. For example, to turn the turtle left by 30 





























degrees, you would use the following line: 
A=30 : GOSUB 22000 


The routine to turn right starts at line 23000, and it is 
called in exactly the same way. The routine at line 
24000 is the one for FORWARD. You just state the 
distance you want the turtle to travel by setting the 
variable D, and then by calling the routine with GOSUB 
24000. For example, to move forward 50 pixels, you 
would use the line: 

D=50 : GOSUB 24000 


Similarly, to move the turtle backward, you would set D 
to the distance and call the routine at line 25000. 

The final two routines are at lines 26000 and 27000. 
These carry out the pen-up and pen-down options. 
Neither of these two routines needs any parameters. 

How to try the routines out 

You can try out the turtle routines yourself. First, load 
blocks A-D and F, then key in your turtle program 
starting at line 10000, and finally add block M. Read the 
details in the block M panel carefully so that you 
understand how to operate the routines before you key 
them in. You will find a wide range of turtle graphics 
demonstration programs on the following eight pages. 


The turtle routines must be keyed in or loaded after all the 
required machine-code routines and main program have 
been entered. If you do not follow this order, your turtle 
programs will not work. 


TURTLE ROUTINES LISTING 


20000 XI=160 : YI=±0Q 
20010 AI=270 : P = i 

20020 : 

21000 SYS F1,1 

21010 CA = COS < < AI -90 >*ff/180 > 

21020 SA=SIN< < AI-90>»ff/180> 

21030 SYS Cl,XI,VI 

21040 SYS D1,-3*CA+XI,-3*SA+VI 

21050 SYS Dl,-6*SA+XI.6*CA*VI 

21060 SYS D1,3*CA*XI,$*SA+YI 

21070 SYS Dl,X I,V I 
21080 SYS Fi, 0 : RETURN 
21090 : 

22000 IF P=i THEN GOSUB 21000 
22010 A I=A I-A 

22020 IF AI<0 THEN AI=AI*360 
22030 IF P=i THEN GOSUB 21000 
22040 RETURN 
22050 : 

23000 IF P=1 THEN GOSUB 21000 
23010 A I=A I + A 

23020 IF AI>360 THEN AI=AI-360 
23030 IF P=1 THEN GOSUB 21000 
23040 RETURN 
23050 : 

24000 XO = D*COS< A I*ff/i80 )+X I 
24010 Y0 = D*SIN<AI*ft/180>+YI 
24020 IF P=1 THEN 24040 
24030 XI=X0 : YI =YO : RETURN 
24040 GOSUB 21000 

24050 SYS C1,XI.YI 
24060 XI=X0 : V t =YO 
24070 SYS Dl.XI.VI 
24080 GOTO 2i006 
24090 : 

25000 D=-D : GOTO 24000 
25010 : 

26000 IF P=1 THEN RETURN 
26010 P=1 : GOTO 21000 
26020 

27000 IF P=0 THEN RETURN 
27010 P=0 : GOTO 21000 


BLOCK M 


TURTLE GRAPHICS routines 


What the routines do 

The routines in this block enable the Commodore to set up a 
mobile turtle, and then move it through relative angles and 
distances, rather than through absolute ones. For example, 
the turtle can be programmed to move forward 50 pixels and 
then turn 90 degrees to its right regardless of the position and 
direction it started in. This block does not itself program 
machine code. The eight subroutines in it are written in simple 
BASIC using GOSUB and RETURN. However, each of these 
BASIC subroutines works by calling one or more of the 
machine-code graphics routines in blocks A-D and F. 

How to use the turtle graphics routines 

To use turtle graphics, first load graphics routine blocks A-D 
and F (or the complete set if you have it). Then add your turtle 
program giving it line numbers between 10000 and 19999, 
and then finally add block M. It is very important that you 
assemble a turtle program in this order. All turtle programs 
must begin either with the turtle initialization routine, if you 
want the turtle to start in the middle of the screen, or the turtle 
shape routine, if you want to make it start somewhere else. 


SYNTAX AND PARAMETERS 

To set up or move the turtle in a program, first decide 
which turtle routine you need. Then key in an angle or 
distances if the routine requires them, separated by 
colons, then GOSUB and the line number which calls the 

routine. 

Turtle intialization GOSUB 20000 

Turtle shape Xl= : Yl= : Al= : P= : GOSUB 21000 
Turn left A= : GOSUB 22000 

Turn right A= : GOSUB 23000 

Forward D= : GOSUB 24000 

Backward D= : GOSUB 25000 

Pen up GOSUB 26000 

Pen down GOSUB 27000 

XI,Yl 

(Turtle initialization only) Initial turtle horizontal 
and vertical coordinates (ranges 0-319 and 0-199). 

Key in XI— then the horizontal coordinate, and Yl— 
then the vertical coordinate. 

Al 

(Turtle initialization only) Initial angle at which the 
turtle is to point, measured in degrees clockwise from 
the positive horizontal axis (range 0-360). Key in Al— 
followed by the angle. 

P 

(Turtle initialization only) Pen up (0)or pen down(l) 

A 

(Turn left and turn right only) Angle through which 
the turtle is to turn, measured in degrees (no range 
limit). Key in A— followed by the angle. 

D 

(Forward and backward only) Distance in pixels 
through which the turtle is to travel (no range limit, 
although some values may produce off-screen 
displays). Key in D= followed by the distance. 








































TURTLE SHAPES 1 


So far, you have seen how a turtle graphics program can 
be used to move through fixed angles and distances. But 
it’s possible to write a turtle graphics program so that 
the turtle’s movements are controlled by variables 
instead of by set figures. The program can then start by 
asking for values for these variables and so produce 
results which you can specify from the keyboard. 

The first program on these two pages works in this 
way. It draws a nest of 24 squares in a way very similar to 
the one you saw on page 50. However, this time the 
results are much more interesting. The size of 
successive squares changes, and you can control the 
initial length of the sides and also the STEP size by 
which they increase each time a square is drawn. To try 
the program out, make sure that you have routine 
blocks A-D and F in memory, add the program listing, 
and finally add block M. After typing RUN, key in two 
parameters and watch the display unfold. 


Multi-shape programs 

Some turtle graphics programs will produce a huge 
range of quite different results. The next program is a 
good example. 




VARIABLE TURTLE SQUARES (parameters 1,3) 


10000 PRINT CHR£<147> 
10010 INPUT "D,S";D,S 
10020 SYS 01 i SYS B1.7 


10030 POKE 53280,4 
10040 FOR C=i TO 24 
10050 FOR 1=1 TO 4 
10060 GOSUB 24000 
10070 GOSUB 22000 
10080 NEXT K 

i82S8 8 o§8b ; 2 B58$ s 

10120 G0SUB C 27000 
10130 GOTO 10130 


60SUB 
A = 90 


20000 































































MULTI-SHAPE 

PROGRAM 

fl¥7S 

How the program works 

The program asks for two 
parameters. The angle through 
which the turtle turns remains 
constant, while the distance it 
travels between turns increases, 
Lines 10050 and 10060 
make the turtle move forward 
then turn right. 

Line 10070 increases the 


forward distance that the turtle 
moves on every loop. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

C Plot 

15 

D Draw 

17 

F Erase 

25 


— you can create some fascinating displays by 
experimenting. The three displays below show the 
results you should see if you try entering parameters 123 
and 1, 144 and 5. and 170 and 10. 


MULTI-SHAPE DISPLAYS 


The program lets you INPUT two parameters. These 
are the angle through which the turtle turns after it has 
drawn a line, and the increase in the forward distance 
with each successive line. The program is controlled bv a 
loop so that the turtle stops after 60 lines. 

The small displays on the right show the effect of 
three different pairs of parameters. The photographs 
show the displays before the program has reached 
completion. The large display below is the complete 
display produced by using the parameters 123 and 1. 

With this program, it’s very difficult to predict how a 
shape will turn out, but this is the fun of turtle graphics 





















































TURTLE SHAPES 2 


There are several kinds of objects that turtle graphics 
are particularly good at displaying. The simplest are 
“closed” shapes — ones that start and finish at the same 
point. You see this with the first of the following 
programs, which draws polygons. 

This program asks you to input two parameters and 
then draws a closed regular shape and fills it. The first of 
the two values you need to enter specifies the length of 
the perimeter, that is the total length of the edges of the 
shape. The second value specifies the number of sides 
the shape will have. 

Each of the following three displays uses a perimeter 
value of 350 with numbers of sides 5, 9 and 15 
respectively. To run the program, load routine blocks 
A-D and F, add the listing below, and then add the turtle 
routines in block M. 

Remember that you must add the program and the 
machine-code and turtle routines in the correct order. 




As you can see, as the number of sides increases it 
becomes more and more difficult to distinguish the 
shape produced from a circle. In fact, the high- 
resolution circle and arc routines on page 21 draw 
shapes in just this way — as a sequence of short lines. 

One final point to notice about this program is that it 
does not use the default initial position for the turtle. It 
does not call the turtle initialization routine starting at 
line 20000 but instead sets up its own initial values in 
line 10040 so that the turtle starts to the left of the 
screen’s center. 

Using multiple loops 

Now you know how to display a closed shape, there are 
several ways in which a series of closed shapes can be 
combined to produce interesting effects. For example, 
you can display a variable number of shapes so that they 
all touch at one corner, as the next program shows. 
















Again, this program needs to be added to blocks A-D 
and F, and then followed by block M. The displays 
below shows the results you should see with parameters 
5 and then 50. 


As a final example of closed shapes, try the following 
program. The displays below are produced by 
parameter values of 80,80 and 100,160. As usual, it 
needs routine blocks A-D and F. 



i88?8 ^8 t t ift 

10030 P0KE A 53280,2 : 60SUB 20000 

10050 F0R°C=i TO H : 0=90 

10060 FOR K = 1 TO 4 

10070 GOSUB 24000 

10080 GOSUB 22000 

10090 NEXT K 

10100 A=360/N 

10110 GOSUB 23000 

10120 NEXT C 

10130 GOTO 10130 


MULTIPLE CLOSED SHAPES PROGRAM 


CLOSED SHAPES PROGRAM 


10000 PRINT CHR$<147> 

10010 INPUT iD.A _ 

10020 SVS Ai : SVS Bl,5 

10030 POKE 53280.5 

10040 XI=110 : Vt =120 : A1=270 

10050 P=1 : GOSUB 21000 

10080 L=0 

10070 L=L+1 

10080 M=360*L/A 

10100 IF 1 ABS?N-M>>0.001 THEN 10070 

10110 FOR C = i TO N 

10120 GOSUB 24000 

10130 GOSUB 23000 

10140 NEXT C 

10150 GOSUB 27000 

10160 GOTO 10160 






















TURTLE SPIRALS 


One display which turtle graphics makes simple is the 
spiral. In general, to draw a spiral you need to move the 
turtle forward repeatedly by some increasing amount, 
and rotate it through a fixed angle. 

You can develop this approach with turtle graphics so 
that several parameters are used. The following 
program shows you one way of doing this — it draws a 
spiral which you can specify. When the program is run, 
it asks you to enter three parameter values. These are, in 
order, the length of the initial move forward, the angle 
through which to turn, and the step size for the increase 
in length. The following sequence of displays was 
produced with this program. The two small displays are 
produced by parameters 5,60,1 and 5,65,1. 

To test the program, load the graphics routines in 
blocks A-D and F, add the listing below, and then add 
the turtle routines in block M. Again, remember that the 
order in which you do this must be right. 




POLYSPIRAL PROGRAM 


10000 PRINT CHR$<147):P0KE 53280,6 

10010 INPUT ,, 0,A,C*|;D,A,C 

10020 SVS A1 SYS Bl,3 

10030 GOSUB 20000 

10040 FOR K=i TO 100 

10050 GOSUB 24000 

10060 GOSUB 22000 

10070 D=D*C 

10080 NEXT K 

10090 GOTO 10090 

READY. 


POLYSPIRAL PROGRAM 

OHO 

How the program works 

The program accepts three 
parameter values — a distance 
through which the turtle will 
move forward, an angle 
through which it will then 
turn, and an increase which is 
added to the distance after 
each turn. The large display 
here is created bv parameters 
5,61,1. 

Line 10010 

asks for the three parameters. 

Line 10030 

initializes the turtle, making it 
start at the center of the 
screen. 

Lines 10040-10080 

form a loop which makes the 
turtle move forward and turn. 
Line 10070 increases the 
distance by the number 
selected at the beginning of the 
program. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

C Plot 

15 

D Draw 

17 

F Erase 

25 


























































































































































































The next program also creates a family of spiral shapes 
and again requires you to specify three parameters. 
However, this time the results are very different. The 
parameters for this program are the length of the turtle 
movements, the initial angle through which the turtle 
rotates, and the amount by which this angle is increased 
on each pass through the loop. 

Increasing the angle instead of the distance 
completely alters the display. This simple program 
produces a family of spiral patterns whose shapes are 
very difficult to predict from the input parameters. The 
curves are best described as “inward spirals”. 

You will find that many combinations of parameters 
make the turtle wander off the screen after a few turns. 
You may have to wait hours to find out if it ever returns! 
The trick is to find an angle and an angle increase value 
which together make the turtle track back over a small 
area. If you do find a combination that keeps the turtle 
within the screen boundaries, you will probably see a 
pattern like the ones below. These shapes both have 
rotational symmetry. The first is produced by 


parameters 20,2,20 and the second by 10,1,78. The first 
has five-fold symmetry and the second three-fold 
symmetry. It produces an endless variety of simple or 
complex patterns on this theme. 


INWARD SPIRAL PROGRAM 


10000 PRINT CHR$(147) : POKE 53280,6 

10010 INPUT "D,A.C"jD,A.C 

10020 SVS 01 : S<fS 6l,l63 

10030 G0SUB 20000 

100-40 G0SU8 24000 

10050 GOSUB 23000 

10060 A = A*C 

10070 IF A>360 THEN A=A-360 
10080 GOTO 10040 
20000 X I=160 : YI=100 
































































TURTLE PATTERNS 


One technique that can be very useful in producing 
turtle displays is that of creating patterns inside 
subroutines. What this means is that you develop a 
shape or pattern and write it so that it can be called as a 
subroutine. This shape can be as simple or as 
complicated as you like — as long as it can be produced 
by the turtle routines. 

Once you have created the subroutine, you can 
make the turtle move across the screen, drawing the 
shape at different orientations or even different sizes 
as it goes. Because you can nest subroutines by having 
GOSUBs within other GOSUBs, you can draw 
patterns within patterns, so that a fairly 
straightforward original design ends up by producing a 
very detailed pattern on the screen. 

The three programs on these two pages are all 
related, being based on the same simple shape. The 
first program produces just the shape. The second 



program repeats the shape four times in a specific way, 
and the third program repeats the whole of the shape 
created by the second, again in a specific way. 

To try out the first program, load routine blocks 
A-D and F, key in the program and then add block M. 
You can then adapt the main program as shown here. 

How to repeat a simple shape 

The first program draws the fundamental shape. It’s a 
design like a games bat. The part of the program that 
draws the bat is contained in a subroutine starting at 
line 15000. It is now fairly straightforward to write 
another subroutine that builds up a simple square 
pattern using the previously created bat subroutine. 
This gives you the second program. Finally, you can 
write a third program that calls this new subroutine 
several times to repeat the design. The result is a 
complex new display. 


























FINAL TURTLE PATTERN 


10000 

10010 

10020 

10030 

10040 

10050 

10060 

11999 

12000 
12010 
12020 
12030 

14999 

15000 
15010 
15020 
15030 
15040 
15050 

mu 

READY. 


SYS A1 : SYS Bi,5 

GOSUB 20000 : POKE 53280,4 

FOR KK = ± TO 8 

GOSUB 12000 

A=135 : GOSUB 23000 

NEXT KK 

G0SU8 27000 : GOTO 10060 


FOR K = i TO 4 
GOSUB 15000 
0=120 : GOSUB 23000 
NEXT K : RETURN 

6=50 : GOSUB 24000 
A=30 : GOSUB 22000 
FOR C=1 TO 3 
D = 20 : GOSUB 24000 

0=120 : GOSUB 23000 

NEXT C 
RETURN 

X1=160 : Y1=100 


Writing shapes as subroutines 

You can use subroutines to build up a library of shapes 
for use in turtle graphics. By nesting the subroutines, 
you can add shapes together, although there is a limit to 
the depth of nesting that the Commodore can handle. 


TURTLE PATTERN 
PROGRAM 


Lines 15000-15060 produce 
the bat. 


0<?v?5 


How the program works 

The program produces a 
simple design, repeats it four 
times in a square, and then 
repeats this square eight times. 

Lines 10020-10050 call the 
subroutine at line 12000, 
moving the turtle on each time. 
Lines 12000-12030 call the 
subroutine at line 15000. 


ROUTINES USED BY 

THIS PROGRAM 

Block Routine(s) 

Page 

A High-resolution 

11 

B Clear-and-color 

13 

C Plot 

15 

D Draw 

17 

F Erase 

25 



















































































































































HIGH-RESOLUTION GRID 


The two grids on this page allow you to work out 
coordinates for use with the machine-code graphics 
routines, and also enable you to work out row bit totals 
for use with the define-character routine. 

Screen grid 

The main grid below shows the coordinates of points 
that lie on the visible screen area. When you use the 
graphics routines, you are not limited to coordinates 
within this range. Most of the routines will accept 
parameter values that extend outside this area, either 
positive or negative, as long as the total range of co¬ 
ordinates does not exceed the Commodore’s integer 
handling capacity. In reality, this restricts most co¬ 
ordinates to a total range of about 32,000. 

This capability means that you can produce designs 
that are only partially on-screen. For example, if you 
key in SYS El, 160,800,700 you will see a very shallow 
arc on the screen — the only visible part of a complete 
circle which the computer has calculated. 

Although invisible parts of displays are supported in 
the computer’s memory, the scroll routine cannot be 
used to move hidden parts of a display. 


Character grid 

You can use this grid to work out row bit totals for 
inclusion with the define-character routine. Pencil in 
your design and then add up the ro w totals. _ 

SINGLE CHARACTER GRID 

Bit values 
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HIGH-RESOLUTION SCREEN GRID 
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ERROR TRAPPING 


Even if you are an experienced micro user, it is easy to 
make mistakes when keying in programs. If you have 
been very careful (and lucky) when using this book, you 
might have managed to key in all the machine-code 
DATA numbers without making any mistakes. 
However, the chances are that one or two simple errors 
will have crept into your copy of the routines. Depend¬ 
ing on where these errors occur, you may not experience 
any problems for quite a time. Then some time later, 
you will call on a routine which you have not previously 
used, and an error in it will cause your program to go 
wrong in some way—perhaps giving a different problem 
every time you run it. There are no error reports gener¬ 
ated when using machine code, so how do you know 
where you have gone wrong? 

The Checksum program 

If you transfer information from one medium to 
another, you need some way of checking that the trans¬ 
fer has been accurate. A simple but effective way of 
doing this with numerical information is to add together 
all the numbers to produce a “checksum”. You can then 
compare the two checksums—before and after transfer. 

The program at the bottom of this page lets you check 
your routines using this method. It will go to a specified 
machine-code routine and add together all the DATA 
numbers it contains to produce a checksum which it 
then compares with its own built-in list. 

How to use the Checksum program 

To use this program, you must first enter block A and 
run it, and then merge the Checksum program with this 
block. Now if you run the combined program and block 
A, it will ask you the question A-L?, requesting you to 
name a routine. If you enter A, and should confirm that 
block A is correct by displaying DATA OK. If block A is 
incorrect, it should display DATA ERROR. Any other 
message output or printed by BASIC as a result of an 
error indicates that one or more of the DATA state¬ 
ments in block A is at fault. You now need to find and 
correct the error. When your first block of machine code 
passes the checksum test, it is then safe to go on and use 
the program to test the other blocks. You must check 
block A first because the Checksum program uses the 
restore routine. You will also find the merge routine 
useful for adding the Checksum program onto the end 
of the routines you want to test. 

Having combined and tested block A with the 
program, you can then test any other block with it. Just 
load the block or blocks you want to test, and then merge 
the Checksum listing with them. Any block which is 
incorrect will give a DATA ERROR report when the 
Checksum tests it. The chances of an incorrect listing 


coincidentally producing the correct checksum total is 
negligible, so, if you do get a DATA ERROR message, it 
is almost certain that your listing is not correct. 


How to avoid errors 

When you are keying in the routines, it is a good idea to 
SAVE each routine before you run it for the first time, 
rather than testing it first and then storing it. Because 
the routines produce machine code, errors can make 
them disrupt themselves. For example, this may lead to 
a listing becoming corrupted by other characters that 
are thrown up on the screen, locking the computer into a 
state that only disconnection will break. 

Secondly, if you key in the routines but they seem to 
be ineffective, try jumping over the first line of the first 
routine with GOTO. The routines may be ignored if 
their first DATA number accidentally happens to be in 
memory already. 


CHECKSUM PROGRAM 


10000 PRINT CHR$(14?) 

10020 THEN 10000 

10040 ON A ! C GOTO 10080,10100.10120 
10050 ON 0-3 GOTO 10140,10160,10180 
10060 ON 0-6 GOTO 10200,10220,10240 
10070 ON 0-9 GOTO 10260,10280,10300 
10080 L = 0 : C = 223i9 : B = 253 
10090 GOSUB 10360 : GOTO 10320 
10100 L = 650 C=34257 B = 275 

10110 GOSUB 10360 : GOTO 10320 
10120 L = 1240 : C = 8606 : B = 76 

10130 GOSUB 10360 : GOTO 10320 

10140 L=1540 : C=46426 : B = 389 

10150 GOSUB 10360 : GOTO 10320 

10160 L=2540 : C=39981 : B = 358 

10170 GOSUB 10360 : GOTO 10320 

10180 L=3240 : C = 2067 : B = 19 

10190 GOSUB 10360 : GOTO 10320 
10200 L = 3540 : C = 47612 : 8 = 393 

READY. 


LIST 10210- 

10210 GOSUB 10360 : GOTO 10320 
10220 L=4240 : C=26764 : B=203 
10230 GOSUB 10360 : GOTO 10320 
10240 L=4640 : C=6326 : B=50 
10250 GOSUB 10360 : GOTO 10320 
10260 L=4840 : C=27057 : B=217 

10270 GOSUB 10360 : GOTO 10320 
10280 L=5240 : C=8484 : B=63 
10290 GOSUB 10360 : GOTO 10320 
10300 L=5440 : C=65736 : B=490 
10310 GOSUB 10360 
10320 IF T=C THEN 10340 
10330 PRINT “DATA ERROR" : END 
10340 PRINT “DATA OK" : PRINT 
10350 GOTO 10010 _ _ , 

10360 RESTORE : IF LOO THEN SYS A3,L 
10370 T = Q : FOR K = 1 TO B : READ D 
10380 T=T+D : NEXT K : RETURN 
READY. 














ROUTINES CHECKLIST 


The main table on these two pages gives you details of all 
the machine-code graphics routines that are featured in 
this book. Block M, the turtle graphics routine block, 
does not appear here because it only uses ordinary 
BASIC. The chart enables you to look up the 
information you need to use the machine-code routines 
in your own programs. 

Syntax 

When you are using any routine, it is important to use 
the correct syntax. Each routine is called from a main 


variable which identifies the routine (B1, H2 and so on) 

and then by parameters, if the routine requires them. 
Remember to separate all this information by commas 
as shown in the chart. 

Because the routines arc activated by variables which 
stand for five-figure memory addresses, it is very 
important that you do not use the same variables to 
represent any other values in your programs. For 
example, calling two sets of coordinates A1,B1 and 
A2,B2 could make a program crash. This is because 
these variables are already used by routine blocks A and 


DiiOlC 

Block 

am uy 

Page 

Title 

Syntax 

Parameters 

A 

11 

High-resolution 

SYS A1 

None 


A 

11 

Low-resolution 

SYS A2 

None 


A 

11 

Restore 

SYS A3,N 

N 

program line number 

A 

11 

Rescue 

SYS 49271 

None 


A 

11 

Merge 

SYS 49297, AS 1,81 

A$ 

filename 

B 

13 

Clear-and-color 

SYS B 1,C 

C 

color code 

B 

13 

Block-color 

SYS B2,X,Y,C 

X,Y 

block coordinates 



C 

color code 

C 

15 

Plot 

SYS C1,X,Y 

X,Y 

point coordinates 

D 

17 

Draw 

SYS D1,X,Y 

X,Y 

line-end coordinates 

E 

21 

Circle 

SYS E1,X,Y,R 

X,Y 

center coordinates 



R 

radius length 

E 

21 

Arc 

SYS E2,X,Y,R,P,Q 

X,Y 

center coordinates 


R 

radius length 





P 

starting angle 





Q 

finishing angle 

F 

25 

Erase 

SYS F1,N 

N 

ofT/on 

G 

27 

Flood-fill 

SYS G1,X,Y 

X,Y 

start coordinates 

H 

31 

ROM-copy 

SYS HI 

None 


H 

31 

Text 

SYS H2,X,Y,A$ 

X,Y 

start coordinates 



A$ 

text 

I 

33 

Define-character 

SYS 11,C,X1-X8 

C 

character code 



X1-X8 row bit totals 

J 

35 

Pattern-fill 

SYS J1,X,Y,C, 

X,Y 

start coordinates 

C 

filling character code 

K 

39 

Block-copy 

SYS K1,X,Y,A,B 

X,Y 

origin block 




A,B 

coordinates 
destination block 
coordinates 


L 

43 

Scroll 

SYS L1,D,C, 

D 

direction 



C 

color code 






























































63 


Parameters 

The chart shows what parameters need to be specified 
for each routine, and what the range limits for each 
parameter are. Routines which perform specific 
operations like switching from low to high resolution do 
not require any parameters. 

Parameter ranges 

The parameter ranges in the chart indicate values that 
will give results fully or partially-on screen. Some of the 
routines actually accept parameters that give results 
completely off the screen. Although in these cases you 
cannot see the resulting display, the computer will 
remember the “invisible” coordinates. This means that 
in turtle graphics, for example, a program may produce 

Parameter Ranges Address Checksum 


- _ 49273 _ 22319 

- _ 49254 _ 

any line number _ 49209 _ 

- _ 49271 _ 

any current filename 49297 _ 

0-255_49559_34257 

0-319 and 0-199 49634 

0-255 _ 

0-319 and 0-199 _ 49712 _ 8606 

0-319 and 0-199 _ 49792 _ 46426 

0-319 and 0-199 50202 39981 


any value _ 

0-319 and 0-199 50225 

any value 
any value 
any value 


0=off, l=on _ 50560 _ 2067 

0-319 and 0-199 _ 50694 47612 

-_5U04_ 

0-319 and 0-199 51167 26764 

any text _ 

0-255 51328 6326 

0-255 each _ 

0-319 and 0-199 51394 27057 

0-255 _ 

0-319 and 0-199 51616 8484 

0-319 and 0-199 

l=left. 0=right 51689 65736 

0-255 


a display that disappears off the screen, to reappear 
again later. 

When you use the machine-code graphics routines, 
the screen acts as a window which allows you to look at 
just a very small part of the theoretical display area. 
Most of the routines which actually produce graphics 
will accept any coordinates that lie within the Commo¬ 
dore's integer handling range. That means that the 
coordinates can reach nearly 32,000. The total display 
area is therefore about 100 screens wide and 160 screens 
deepl Only one sixteen-thousandth of this is visible 
screen. 

Address 

The start address for each routine shows where its 
machine code begins in memory. Each start address is 
represented by a variable. Start address 49273, for 
example, which is the beginning of the machine-code 
routine which makes the screen switch to high 
resolution, is represented by Al. To activate the high- 
resolution routine, you could either type SYS A1 or SYS 
49273. 

Checksum 

These figures are the ones used by the Checksum 
program on page 61 to test if the total of a routine’s 
DATA numbers, as keyed in, is correct. This gives a 
simple way of checking a listing that uses machine-code 
routines. When machine-code instructions are being 
carried out, faults will not generate BASIC error 
reports, making it difficult to track down bugs. Full 
details appear on page 61. 

COMMODORE COLOR CODES 


Combinations of foreground and background colors are coded by a 
single number from 0 to 255. To select any foreground and 
background color combination, add together the two numbers 
shown. The resulting color code can then be used with the clear- 
and-color, block-color or scroll routines. 


Color 

As foreground 

As background 

Black 

0 

0 

White 

16 

1 

Red 

32 

2 

Cyan 

48 

3 

Purple 

64 

4 

Green 

80 

5 

Blue 

96 

6 

Yellow 

112 

7 

Orange 

128 

8 

Brown 

144 

9 

Light red 

160 

10 

Dark gray 

176 

11 

Medium gray 

192 

12 

Light green 

208 

13 

Light blue 

224 

14 

Light gray 

240 

15 


















































INDEX 


LOGO 50 
Low-resolution 
routine 11 


Main entries are given in 

bold type. 

Address 63 
Arc routine 20-1 

BASIC, speeding up 6 
Blank-color scrolling 43 
Block-color routine 

12-13 

Block-copy routine 

38-39 

Blocks, routine 
. re-loading 9 
storing 9 
titles 7 

Characters, high- 
resolution 32 - 3 , 60 
Checksum program 61, 
63 

Circles, Graphics 
Editor 47 
routine 20-1 
Clear-and-color routine 

12-13 

Closed shapes 
programs, 54-5 
Color, block-color 
routine 12-13 

clear-and-color 
routine 12-13 
codes 12,63 
filling shapes 26-9 
Graphics Editor 46-7 
high-resolution 12-13 
random block- 
color 12-13 
Color Chart program 
32-3 

Copying 38-40 
Cross-hatching 36 
Cursors, Graphics 
Editor 44 

Define-character routine 

32-3 

Diamond Copier 
program 38 
Diamond program 18 
Displays, scrolling 42-3 
Double Recursion 
program 23 


Draw routine 16-17 

Erase routine 24-5 
Errors, avoiding 61 
Checksum 
program 61,63 
programming 
troubleshooting 9 

Filenames 49 
Filling, patterns 34-7 
shapes 26-9 
Flight Simulator program 
30-1 

Flood-fill routine 26-7 

Graphics Editor 44-9 
circles 47 
color 46-7 
commands 44-5 
filenames 49 
flood-filling 44-5 
lines 44-5 
on-screen grid 46-7 
pattern-filling 47 
points 44-5 
storing displays 48-9 
text 47 
Grids, high- 
resolution 60 
on-screen 46-7 

High-resolution 8,9 
characters 32-3 
color 12-13 
grid 60 
routine 11 
text 30-1 

Jungle program 28-9 

Keying in programs 8-9 

Landscapes 18-19 
Line Landscape 
program 18-19 
Line numbers 9 
Line Web program 16 
Lines, drawing 16-17 
landscapes 18-19 
radiating patterns 18 
Loading 9 


Machine code, 
definition 7 
linking Basic with 6-7 
routines 
checklist 62-3 
Merge routine 11 
Multi-shape 
programs 52-3 

Overprinted Circle 
program 24-5 
Overprinting 24-5 

Parameters 7 
checklist 63 
Pattern-filled Map 
program 34-5 
Pattern-filling, 

Graphics Editor 47 
Patterns, copying 35 
cross-hatching 36 
defining 35 
filling 34-7 
turtle graphics 58-9 
Planet Copier 
program 39 
Planets program 15 
Plot routine 14-15 
Point Star program 14 
Points, plotting 14-15 
Polygon program 54 
Polyspiral program 56-7 
Programs, errors 9 
keying in 8-9 
line numbers 9 
merging 11 
troubleshooting 9 
Puzzle program 40-1, 
46-7 

Radiating patterns 18 
Random block-color 
12-13 

Random line 
program 17 
Random numbers, 
plotting with 15 
Recursion, with 
circles 22-3 
Re-loading routines 9 
Rescue routine 11 


Restore routine 11 
Retrieval 49 
ROxM-copy routine 

30 - 31 

Rotating Squares 
program 25 
Routines, checklist 62-3 
function 7 
names 7 

Screen grids, high- 
resolution 60 
Screen-scrolling 42-3 
Seascape program 26-7 
Shading, plot routine 14 
Shapes, filling 26-9 
repeating 58-9 
turtle graphics 52-5 
Spirals, turtle 
graphics 56-7 
Storing routines 9, 48-9 
Subroutines, pat¬ 
tern 58, 59 
Syntax 7 
checklist 62 

Telephone pro¬ 
gram 20-1 
Text, Graphics 
Editor 47 
high-resolution 30-1 
routine 30-31 
Turtle graphics 50-7 
patterns 58-9 
routines 50-1 
shapes 52-5 
spirals 56-7 

Wall and Gate 
program 36-7 
Wrap-around 
scrolling 42 
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The bestselling teach-yourself programming course now takes you 
beyond BASIC to the world of advanced machine-code graphics. 

Using a combination of simple BASIC programming and a 
collection of tailor-made, ready-to-run machine-code routines, this 
book shows you how to produce precision, high-resolution graphics 
in afraction of the time they would take in BASIC alone. A keyboard- 
driven graphics editor, a turtle graphics pattern generator, and a 
wide variety of demonstration programs, will help you open up the 
full potential of the Commodore 64-withoutthe need for any 
knowledge of machine-code programming. 

Together, Books Three and Four in this series form a complete, 
self-contained graphics system for the Commodore 64. 
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